Question

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

Answer 1

var
a, n :integer;
begin
write ('введите число ');
readln(a);
if a>0 then write('ошибка. число не отрицательное ') else
begin
if a<0 then n:=a*a;
writeln ('квадрат числа ', n);
end;
end.