var x: integer;
begin
Write('Ведите целое число: '); ReadLn(x);
if x >= 0 then x := x + 3 else x := x - 2;
WriteLn('x = ', x);
end.
Объяснение:
var x: integer;
begin
Write('Ведите целое число: '); ReadLn(x);
if x >= 0 then x := x + 3 else x := x - 2;
WriteLn('x = ', x);
end.
Объяснение: