// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var k:=0;
var n:integer;
Writeln('Вводите натуральные числа; 0 - окончание ввода');
repeat
Read(n);
if (n>99) and (n<1000) and (n mod 4=0) then Inc(k)
until n=0;
Writeln(k)
end.
var i: integer;
begin
for i:=100 to 200 do
if i mod 3 = 0 then writeln(i);
end.
В компьютерной системе есть возможность подключать новые устройства ввода, вывода,память компьютера, заменять старые устройства на современные, неисправные - на работающие