Question

уменьшите данное число (х) в 2 раза если оно четное!информатика

Answer 1

var
  x:integer;
begin
  readln(x);
  if x mod 2=0 then x:=x div 2;
  writeln(x);
end.