Составить алгоритм решения задачи с помощью паскаля, используя конструкцию…

Алгоритм решения задачи.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.