как написать в паскале программу которая находит произведение первых 30 натуральных чисел.

var p:real; i:integer; begin p:=1; for i:=1 to 30 do p:=p*i; writeln('factorial 30 is ',p:0:0); readln end.

P.S. Роман, невредно прикинуть порядок величины результата ;)