While com valor definido.

Program Pzim ;
var
n1,n2,n3,cont:integer;
 Begin
 while (cont<7) do
 begin
 writeln('Digite a primeira nota ');readln(n1);
 writeln('Digite a segunda nota ');readln(n2);
 writeln('A soma dos numeros é: ', ((n1+n2)/2));
 cont:=cont+1;
 end;
 End.