uses graphabc; var i:text; procedure menu(); begin setfontsize(30); textout(WindowWidth() div 3,WindowHeight() div 7,'Русь'); end; begin menu; end.