составьте программу для нахождения суммы чисел 20 до 60 кратных пяти.по турбо паскалю

Вопрос пользователя:

составьте программу для нахождения суммы чисел 20 до 60 кратных пяти.по турбо паскалю

Илюха отвечает:

var

i,s:integer;

begin

s:=0;

for i:=20 to 60 do

if i mod 5 =0 then s:=s+i;

writeln(s);

end.