Где ошибка pascal 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; else writeln('no'); end; readln(n); if b> 100 then writeln('no') end; sred: =sum/b; writeln('среднее арихметическое равно ', : , '='sred); end.

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.

Слово - "массив" ключ - "знание"       з     н   а     н    и   е       9   15   1  15   10   6 +       м   а   с     с   и   в       14   1   19   19   10   3      х  о      т      а  т    з   23  16   20  1   20   9

program max;

uses crt;

var a,b,max: real;

begin

      clrscr;

      write('введите число а: ');

      readln(a);        

      write('введите число b: ');

      readln(b);  

  if (a=b) then writeln('числа одинаковы')

            else begin 

                              max: =a;  

                              if (b> a) then max: =b;  

                              writeln('наибольшее число: ',max);

                      end;          

      readkey;  

end.