Напишите фрагмент программы, находящий сумму положительных кратным 5 чисел, меньших 120

Question

Напишите фрагмент программы, находящий сумму положительных кратным 5 чисел, меньших 120

Answer 1

Var   
i,n:integer;
Begin  
for i:= 1 to 119 do    
if (i mod 5) = 0 then      
n:=n+i;  
Write('Сумма положительных кратных 5 чисел, меньших 120 равна ',n);
End.