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

program zadacha;

var

i,a,b:integer;

begin

a:=1;

b:=9;

while bgt;=3 do begin

b:=b-2;

a:=a*b;

end;

writeln(a =, a);

end.