Запишите пожалуйста в Pascal/

Почти буквальный перевод:

var x,x1,x2,x3,c,a,b:integer;
begin
write('Vvedite a,b,c= ');
readln(a,b,c);
x1:=a+b;
if x1< 0 then x1:=-x1;
x2:=c-1;
if x2< 0 then x2:=-x2;
x3:=2*x2;
x:=x1-x3;
if x< 0 then x=-x;
write('x=',x);
readln
end.

Но исходный текст на С++ просто безобразно написан. То же самое на Pascal с превращением в более культурный вид:

var c,a,b:integer;
begin
write('Vvedite a,b,c= '); readln(a,b,c);
writeln('x=',abs(abs(a+b)-2*abs(c-1))); readln
end.