Написать программу в pascal которая считывает сумму всех кратных чисел от A до B

var a,b,i,kratnoe,n,s:int64;beginread (a,b,kratnoe);s:=0;for i:=a to b doif (i mod kratnoe=0) then s:=s+i;write(s);end.