Составить алгоритм программы для нахождения произведения чисел от 1 до 20 кратно 5

я набросал так
Алгоритм
1) Начало программы
2) P = 1
3) Цикл по k от 1 до 20
4) Если k Mod 5 = 0, то P = P*k
5) Конец цикла
6) Вывод P
7) Конец программы

как это теперь составить на паскале?

Program pr;
Var p,k:integer;
Begin
p:=1;
For k:=1 to 20 do 
if k mod 5 = 0 then p:=p*k;
Writeln('Произведение= ',p);
End.