вычислить сумму всех чисел кратных 5 в диапазоне [0;n] где целое число n>10 и водится с клавиатуры

пусть ввели x
i = 5;
цикл{
если i < x то выводим i  
и увеличиваем i на 5

иначе конец 
}

var
i,n:integer;

begin

readln(n);
k:=5;
for i:= 0 to n
if (i mod 5=0) then
k:=k+i;
writeln(k);
end.