Question

Составте программу в Pascal ABC где необходимо ввести некоторое целое число и, если оно чётное, уменьшить его в 2 раза

Answer 1

var
  a:integer;
begin
  write('a=');
  readln(a);
  if odd(a) then writeln(a/2:6:2);
end.