834 
Procedure status; 
Begin 
slopang trunc(min(visang,sunel)); 
while (slopang < 90) and (phitwo < 90 ) and (phithree < 90) do 
begin 
slopang slopang +1; 
phitwo : = iglo(slopang,visang); 
minvis := (view - phitwo); maxvis := (view + phitwo) ; 
if (maxvis > 360) then maxvis : = (maxvis - 360); 
phithree := iglo(slopang,sunel); 
minsh := (shine - phithree); maxsh := (shine + phithree) ; 
If (maxsh > 360) then maxsh : = (maxsh - 360); 
if phitwo- 0 then 
writeln (round(slopang):6, ' ':12,' ' ':8, 
round(minsh):12,' , round(maxsh):8 ) 
else if phithree » 0 then 
writeln (round(slopang):6,round(minvis):12,' -',round(maxvis):8, 
' ' :12, ' , ' ':8 ) 
else writeln (round(slopang):6,round(minvis):12,' ,round(maxvis):8, 
round(minsh):12,' , round(maxsh):8 ); 
end ; 
end;{status} 
Begin {main program} 
Readin; 
Header; 
Status; 
End.