Question

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

Answer 1

var a,b:integer;

begin

readln(a,b);

if (a+b)>1000 then writeln(sqr(a)) else writeln(sqr(b));

end.