сколько на интервале от 1 до 100 чисел кратных 4

ПРОГРАММА ПАСКАЛЬ ABC

Спасибо:)

Var    i, k: integer; Begin k:=0; writeln('Числа кратные 4:');   for i:=1 to 100 do    if i mod 4 = 0 then      begin        k:=k+1;        write(i:4);      end;  writeln;  writeln('Всего чисел: ',k);     End.