Program teplota;
uses crt;

var
t,pr,suc:real;

begin
clrscr;

repeat
write('Zadaj teplotu: ');
readln(t);
suc := suc + t;
pr := pr + 1;
until(pr = 7);

t := suc / pr;
writeln('Priemerna tyzdenna teplota je ',t:5:2,' stupnov celzia');
readln;
end.