var x:integer;
begin
readln(x);
if x < 0 then x:=x*2;
if x >= 0 then x:=x*x;
writeln(x);
end.
Объяснение:
var x:integer;
begin
readln(x);
if x < 0 then x:=x*2;
if x >= 0 then x:=x*x;
writeln(x);
end.
Объяснение: