Информатика

Варюта

8 января, 14:29

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.

Где здесь ошибка? Пишет ожидался оператор.