Составить программу. Turbo Pascal

Верно ли?
var
x, m, a, b: integer;

begin

Write('Введите a, b, х: ');
ReadLn(a, b, x);

if (x > 0)
THEN begin
if (a > b) THEN m := a ELSE m := b
end
ELSE begin
if (a > b) THEN m := b ELSE m := a;
m := m + x * x + b * b * b * b * b;
end;

WriteLn('m = ', m);

END.