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

program abc;var i:integer;beginread(i);if i<0 theni:=sqr(i);write(i);end.

program kv;  var a,x:integer;   begin   a:=0;   read(x);        if x<a then write(sqr(x)) else write('введено не отрицательное') ;   end.