Вычислить сумму всех чисел кратных 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.