Найти сумму всех целых чисел, кратных 5, из отрезка [A, B] — Pascal(Паскаль)

program pr1;
var a,b,sum,i:integer;
begin
  writeln('Vvedite A');
  readln(a);
  writeln('Vvedite A');
  readln(b);
  for i:=a to b do
  if i mod 5=0 then sum:=sum+i;
  writeln('Summa- ',sum);
end.