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

programzadacha;

var

i,a,b:integer;

begin

a:=1;

b:=9;

whileb>=3 do begin

b:=b-2;

a:=a*b;

end;

writeln('a=', a);

end.

1. спасибо братан