Составить прогамму, нахождения суммы всех натуральных чисел из диапазона от а до в , включая а и в , кратных 5 (а и в вводятся с клавиатуры)

program raf105;

var a,b,c,i:integer;

begin

write('Введите 2 числа A и B: ');

readln(a,b);

for i:=a to b do

if (i mod 5)=0

 then c:= c+i;

writeln('Сумма всех чисел кратных пяти в диапазоне от ',a,' до ',b,' равна ',c);

end.

Язык программирования PascalABC