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