moveto.pas

 {Moveto.PAS}
 
 { Пример программы для процедуры MoveTo }
 
 Uses Graph;
 
 Var Gd, Gm : Integer;
 
 Begin
  Gd:=Detect;
  InitGraph(Gd, Gm, '');
  If GraphResult <> grOk Then Halt(1);
  MoveTo(0, 0); { Верхний левый угол окна }
  LineTo(GetMaxX, GetMaxY);
  ReadLn;
  CloseGraph;
 End.