Question

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

Answer 1

var a:integer;
begin
read(a);
if a mod 2 = 0 then a:= a-2
else a:=a+3;
end.