Написать программу, возведения числа в квадрат, если оно положительное, иначе вывести на экран фразу, что число отрицательное.

Вопрос школьника по предмету Информатика

Написать программу, возведения числа в квадрат, если оно положительное, иначе вывести на экран фразу, что число отрицательное.

Ответ учителя по предмету Информатика

var a:integer;

begin

read(a);

if a>0 then a:= sqr(a)

else write(‘число отрицательное’);

end.