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

program zz1;

var a, b, r:integer; / /задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

r:=a + b; / / вычисляем сумму двух заданных чисел по формуле

if r > 1000 / /проверяем, если сумма чисел больше тысячи, то в ответ выводим квадрат первого числа, если нет, то квадрат второго числа

then write (' квадрат первого числа = ', a * a)

else write (' квадрат второго числа = ', b * b); / / выводим ответ

end.