Question

Помогите срочно перевести на Паскаль

Answer 1

var x,y,z:integer;
begin
x:=16;
y:=21;
x:=x-y;
if x<y then
 begin
 y:=2*y+x;
 z:=y-x;
 end
else z:=x-y;
writeln(z);
end.

Результат:
42