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

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