1. пропала ; после writeln('Цифра')
2. меньше или равно пишется <=, так что условие n=<300 надо переписать n<=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 (n<>0) do
begin
sred:=0;
sum:=0;
b:=0;
if(n mod 8 =0 )and (n<=300) then
begin
sum:=n+sum;
end
else
begin
writeln('NO');
end;
readln(n);
if b>100 then
writeln('NO')
end;
sred:=sum/b;
writeln('Среднее арихметическое равно ',':=',sred);
end.
var a,x:integer;
i,s:integer;
begin
writeln('введите целое число');
readln( a ); x:=a;
s:=0;
while ( x<>0 ) do
begin
s := s + (x mod 10);
x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );
if s=10 then
writeln('Верно')
else
writeln('Неверно');
end.