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