Паскаль. Найти количество положительных чисел в промежутке от 1 до 100, кратных четырем.

// Найти количество положительных чисел в промежутке от 1 до 100, кратных четырем. Var i,j,x: word; begin   j:=0;   writeln ('Числа кратные четырем:');    for i:=1 to 100 do      begin         x:=i mod 4;              if x=0 then            begin               j:=j+1;               write(i,' ');            end;      end;   writeln;   writeln ('Всего таких чисел: ',j);    end.