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

Составить алгоритм

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