найти произведение натуральных чисел от 1 до 10

Program n1;Uses CRT;Var i,p: integer;beginClrScr;p:=1;For i:=1 to 10 do p:=p*i;Writeln(p);readlnend.