program promedios;
var a,b,c,d,e,pg1,pg2,max,max2:real;
x,y,i,nl:integer;
begin
writeln ('ingrese el numero de legajo:');
readln (nl);
writeln ('ingrese los cinco promedios:');
readln (a,b,c,d,e);
pg1:=(a+b+c+d+e)/5;
max:=pg1;
x:=nl;
writeln ('ingrese el numero de legajo:');
readln (nl);
writeln ('ingrese los cinco promedios:');
readln (a,b,c,d,e);
pg2:=(a+b+c+d+e)/5;
max2:=pg2;
y:=nl;
for i:=3 to 5 do
begin
writeln ('ingrese el numero de legajo:');
readln (nl);
writeln ('ingrese los cinco promedios:');
readln (a,b,c,d,e);
pg1:=(a+b+c+d+e)/5;
if pg1>max then
begin
max:=pg1;
x:=nl;
end
else
begin
if pg1>max2 then
begin
max2=pg1;
y:=nl;
end;
end;
end;
writeln ('los valores maximos son:', max,max2);
writeln ('los numeros de legajo son:', x,y);
readln;
end.