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

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