Паскаль.
Найти количество положительных чисел в промежутке от 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.