Правила форума
OutTxt.PASLanguage:
Русский
English
{OutTxt.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the OutText procedure.}
uses Graph;
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult <> grOk then
Halt(1);
OutText('Easy to use');
Readln;
CloseGraph;
end.
::
::
::
