Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.