Запомнить меня на этом копьютере
Пример программы для процедуры OutText.
{OutTxt.PAS} { Пример программы для процедуры OutText } 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.
Скачать outtxt.pas