831 
procedure calculate; 
begin 
prthdr(output); 
for i := 0 to round(max(sunang, lookang)) do begin 
for j :■ 0 to 359 do 
buf[j] := 
delta := iglo(sunang, i); 
minshad := round(sundir - delta); 
maxshad := round(sundir + delta); 
for j := minshad to maxshad-1 do 
buf[(j + 360) mod 360] := 's' ; 
delta iglò(lookang, i); 
minvis :=■ round ( lookdi r - delta); 
maxvj.s :=* round( lookdir + delta); 
for j := minvis to maxvis-1 do begin 
idx := (j + 360) mod 360; 
if buf[idx] =» 's' then 
buf[idx] :» 
else 
buf[idx] : » 'i' 
end ; 
prtline(output, 90-i); 
end 
end ; 
begin 
readin; 
calculate ; 
prtlegend 
end.