((3+1)*(3+1)+5)-10 ** язык паскаль плиз

Question

((3+1)*(3+1)+5)-10 на язык паскаль плиз

Answer 1

Var a,b,c,d: integer;
begin
a:=3;
b:=1;
c:=5;
d:=10;
a:=a+b;
b:=a*a;
a:=b+c;
b:=a-d;
write(b);
end.