Question

Необходимо ввести некоторое целое число и если оно четное уменьшить его в 2 раза.Составить программу на Паскаль

Answer 1

var
a:longint;
begin
read(a);
if (a mod 2 = 0) then
a:= a div 2;
writeln(a);
end.