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