Написать программу под цикл пожалуйста!!

Question

Написать программу под цикл пожалуйста!!

---

Answer 1

program zadacha;

var

i,a,b:integer;

begin

a:=1;

b:=9;

while b>=3 do begin

b:=b-2;

a:=a*b;

end;

writeln('a =', a);

end.

---