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

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