напишите класс который принимает с клавиатуры целое число и выводит на экран его квадрат но только в случае,если введенное число отрицательно.В противном случае на экран выводится сообщение ошибка

var a:integer;

begin

readln(a);

if (a<0) then a:=sqr(a);

writeln(a) else writeln(Error);

end.

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку