Ответ:

Цикл з лічильником:

• var i,sum: integer;
• begin
• for i:= 1 to 100 do
• if i mod 5 = 0 then sum:=sum+i;
• write(sum);
• end.

Цикл з передумовою:

• var i,sum: integer;
• begin
• while i<100 do
• begin
• i:=i+1;
• if i mod 5 = 0 then sum:=sum+i;
• end;
• write(sum);
• end.

Пример работ: