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

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.