АК
Андрей Козловцев
Составить программу. 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.