program funct;
uses crt;
var tmp, i:integer;
    P:array [1..7] of integer;
begin
clrscr;
for i:=1 to 7 do
   begin
   writeln('Enter', i, 'weather on day',i);
   readln(P[i]);
   inc(x,P[i]);
   end;
writeln('Srednjaa temperatyra=',(rmp/7:2:2));
readln;
end.