Program temperature; var t: array[1..12] of real; i: integer; tsred: real; begin for i: =1 to 12 do begin write('t[', i: 2, ']= '); read (t[i]) end; tsred: =0; for i: =1 to 12 do tsred: =tsred+t[i]; tsred: =tsred/12; writeln( 'среднегодовая температура = ', tsred: 6: 2, ' градусов'); for i: =l to 12 do begin dt[i]: = t[i] - tsred; writeln('dt[', i: 2, ']=', dt[i]: 6: 2) end. где здесь пишет ожидался оператор.

Вконце программы пропущен end; и еще не описан массив dt

Program lemonly; const   n=10; var   table: array [1..n] of real;   i: integer;   sum,arifm: real; begin   randomize;   sum: =0;   writeln ('введите ', n, ' чисел: ');   for i: = 1 to n do       begin       readln(table[i]);       sum: =sum+table[i];       end;   writeln();   arifm: =sum/n;   writeln ('cреднее арифметическое введённых чисел равно ',arifm: 8: 3); end.

Program ksushaa1999passwordrepeat; uses crt; var   vvod,ok: string; const   pass=' [email  protected]& $45%$! #hfthugrug'; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln(); repeat       writeln('введите пароль ');       readln (vvod);   until vvod=pass; writeln('принято'); end. program ksushaa1999passwordwhile; uses crt; var   vvod,ok: string; const   pass=' [email  protected]& $45%$! #hfthugrug'; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln();   while vvod< > pass do       begin           writeln('введите пароль ');           readln (vvod);       end;   writeln('принято'); end. program pksushaa1999passwordif; uses crt; var   vvod,ok: string; const   pass=' [email  protected]& $45%$! #hfthugrug'; label   metka; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln(); metka:   writeln('введите пароль ');   readln (vvod);   if vvod< > pass then goto metka;   writeln('принято'); end.