Найти сумму первых десяти чисел, кратных пяти. Составить алгоритм

Алгоритм решения задачи.0) Начало1) S:=02) Начало цикла по i от 5 до 503) Если остаток от деления (i /5)=0 то s:=s+i;  4) Конец цикла5) Вывод S6) Конец  Программа на паскале реализующая данный алгоритмProgram Summa;var s,i:integer;begin    s:=0;    for i:=5 to 50 do        if (i mod 5)=0 then s:=s+i;         writeln('Сумма первых 10 чисел которые кратны 5=',s);end.