Может ли на винчестере быть больше системных загрузчиков, чем на дискете?
почему?

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

самым главным считается объем

253(8)=10101011(2)

2в4(16)=1010110100(2)

48(16)=1001000(2)

program qwe;

uses crt;

var  c, s, i: integer; y: real;

begins: =0; c: =0; for i: = -2 to 27 dobegins: =s+i; c: =c+1; y: =s/c; end; writeln('srednee arifmeticheskoe=',y);

readln; end.

вот так вот должна быть 1 . ты ни где не илпользовал(а) счетчик, а это неправильно=) в этом твоя и была ошибка=)