Даны два числа. Вычислить их сумму. Если она превышает 1000, то вычислить и вывести...

Question

Даны два числа. Вычислить их сумму. Если она превышает 1000, то вычислить и вывести квадрат. первого числа, иначе-вычислить и вывести куб второго числа

Answer 1

Var a,b:integer;
begin
readln(a,b);
if((a+b)>1000) then writeln(a*a, ' - квадрат первого числа')
else
writeln(b*b, ' - куб второго числа');
end.