Создать программу на Паскале .номер 3 срочно

Question

Создать программу на Паскале .номер 3 срочно

---

Answer 1

var n,n1,i: integer;
begin
  write('N = ');  readln(n);
  if n mod 2=0  then i:=2
  else i:=1;
  n1:=1;
  repeat
    n1:=n1*i;
    i:=i+2;
  until i>n;
  writeln('N1 = ',n1);
end.

N = 6N1 = 48

N = 5N1 = 15