РЕбят,где ошибка Pascalprogram one; var a,n,sum,b:integer; sred:real; begin

1. пропала ; после  writeln('Цифра')

2. меньше либо равно пишется lt;=,  так что условие n=lt;300 надобно переписать nlt;=300

3. после sum:=n+sum; пропала накрывающая скобка end

4. после else надо бы еще begin

5. предпоследняя строка тоже мимо.

Вот вся исправленная прога:

program one;

var a,n,sum,b:integer;

sred:real;

begin

readln(n);

writeln('Цифра');

while (nlt;gt;0) do

begin

sred:=0;

sum:=0;

b:=0;

if(n mod 8 =0 )and (nlt;=300) then

begin

sum:=n+sum;

end

else

begin

writeln('NO');

end;

readln(n);

if bgt;100 then

writeln('NO')

end;

sred:=sum/b;

writeln('Среднее арихметическое одинаково ',':=',sred);

end.