// 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
s, k: integer;
begin
s := 8;
for k := 2 to 8 do
s := s + 8;
writeln(s);
end.
Так как максимальная цифра числа = 3, то число может быть записано в системе счисления с основанием >=4.
Ответ: 3) 4 и 8
Program q193766551;var i, s: Integer;begin s := 0; for i := 2 to 100 do Inc(s, i * Integer(not Odd(i))); WriteLn(s);end.