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

Question

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

---

Answer 1

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

Результат:
42