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

var a:integer;
begin
readln(a);
if (a<0) then a:=sqr(a);
writeln(a) else writeln(Error);
end.
Оцени ответ