Question

Нужна срочно помощь
1. Создайте алгоритм на языке Паскаль согласно условию:

Возведите число А в квадрат, если оно больше 20 - прибавьте к нему 150, если нет - прибавьте 1000.

Answer 1

var a: integer;

begin

write('A = '); read(a);

a := a * a;

if a > 20 then a := a + 150

else a := a + 1000;

write('A = ', a);

end.