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

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