Question

С клавиатуры вводится число. Если оно четное, то его нужно удвоить, а если нечетное - утроить. В паскале.

Answer 1

var n: integer;
begin
  read(n);
  if (n mod 2 ) = 0 then n:=n*2
  else n:=n*3;
end.