\\ цикл FOR
program funct;
uses crt;
var tmp, sum, i:integer;
begin
sum:= 0;
for i:= 1 to 7 do
begin
writeln('Day= ', i);
readln(tmp);
sum:= sum +tmp;
end;
writeln('Srednja tenperatura za 7 dney= ', sum/7:2:2);
readln;
end.

\\цикл WHILE
program funct;
uses crt;
var tmp, sum, i:integer;
begin
sum:= 0;
while (i<7) do
begin
writeln('Day= ', i+1);
i:=i+1;
readln(tmp);
sum:= sum +tmp;
end;
writeln('Srednja tenperatura za 7 dney= ', sum/7:2:2);
readln;
end.