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

Question

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

Answer 1

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

Answer 2

Program kv;
  var a,x:integer;
   begin
   a:=0;
   read(x);
        if x   end.