Написать программу, которая вычисляет среднюю температуру воздуха за неделю.

uses crt;

const n=7; var sr:real;

i:integer;

a:array[1 ... n] of integer;

begin clrscr;

sr:=0;

writeln ('Vvedite temperaturu za kajdyi den ') ;

for i:=1 to n do begin readln (a[i]) ;

sr:=sr+a[i];

end;

sr:=sr/7;

write ('Srednya temperatura = ', sr:0:2) ;

readkey;

end.