Помогите пожалуйста,срочно!!!! тема" циклы в паскале" найти произведение 5 чисел...

Программа, которая выводит произведение чисел от 1 до 5...
program sicl11;
var i, p: integer;
begin
p:=1;
for i:=1 to 5 do p := p * i;
write('Произведение чисел от 1 до 5 равно ', p);
readln;
end.