var i : integer;

p : longint;

BEGIN

p := 1;

for i := 903 to 999 do

 p *= i;

writeln(p);

//=========================

p := 1; i := 903;

while i <= 999 do begin

 p *= i;

 Inc(i);

end;

writeln(p);

//==========================

p := 1; i := 903;

 repeat

 p *= i;

 Inc(i);

Until i > 999;

writeln(p);

END.

Однако стоит отметить, что полученное произведение довольно большое, в следствии чего, оно не влезит ни в какой тип переменных.