Написати програмний код процедури для обчислення суми чисел, кратних 5, з діапазону від 15 до 48

//pascal
var sum,i:integer;
begin
for I:=15 to 48 do
begin
if (i mod 5 = 0) then sum:=sum+i;  
end;
writeln(sum);
end.