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

Как вариант программа для Паскаля будет иметь последующий вид :
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.
После запуска должна считать сообразно условию