Question

 Дано число. Если оно чётное, то увеличить его на 1, в противном случае увеличить его на 2. Помогите пожалуйста, напишите программу по английски.В Фри Паскаль.

Answer 1

var a: integer;

begin

readln(a);

if (a mod 2=0) then a:=a+1 else a:=a+2;

writeln(a);

end.