uses crt;
var x,m,i,n: integer; 
begin
write ('Число = '); read(x); 
m:=x; n:=1;
for i:=2 to 5 do begin
write ('Число = '); read(x); 
if x>m then begin 
m:=x; n:=i; 
end;
end;
end.