Question

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

Answer 1

program abc;
var i:integer;
begin
read(i);
if i<0 then
i:=sqr(i);
write(i);
end.

Answer 2

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