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

Uses crt;
var
p:integer;
begin
p:=1;
for var i:=1 to 10 do
p:=p*i;
writeln('Произведение первых 10 натуральных чисел= ',p);
end.