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

Pascal ABC

var a : integer;
begin
readln(a);
If a >= 0 then a := 2*a;
If a < 0 then a := a*a;
writeln(a)
end.

program z1;

uses crt;

var x,y:integer;

begin

clrscr;

writeln('введи число');

readln(x);

if x>=0 then x:=x*2 

else

if x<0 then sqr(x);

writeln(x);

readln;

end.