Задание

Дано целое число. Если оно является положительным, то прибавить к нему 3; в противном случае не изменять его. Выберите программу.

program chislo;

var a: integer;

begin

writeln (‘Введи число a’);

readln (a);

if a>0 then a:=a;

writeln (a);

end.

program chislo;

var a: integer;

begin

writeln (‘Введи число a’);

readln (a);

if a>0 then a:=a+3;

writeln (a);

end.

program chislo;

var a: integer;

begin

writeln (‘Введи число a’);

readln (a);

if a<0 then a:=a+3;

writeln (a);

end.