Составьте программу которая вычисляет сумму натуральных чисел кратных 4 в диапазоне от 5 до n (n велено с клавиатуры)

program krat;

var n, s, i: integer; / / n - вводимое число;

s - сумма чисел, кратных 4; i - счетчик

begin

s:=0;

write ('Enter n ');

readln (n);

for i:=5 to n do if i mod 4 = 0 then s:=s+i;

/ / если остаток при делении i нацело на 4 равен нулю,

//то добавить i к сумме s

writeln ('summ = ', s);

end.