str(oko,em);
bm:=false;mn:=false;fire.v:=false;
if cou until exi; 1: closegraph; {закрытие графического режима} end.
until exi;
1: closegraph; {закрытие графического режима}
end.