program Dijagonale;
uses Graph;
  var Drajver,Rezim,Pom,i:integer;
  begin
    writeln(' Program crta dijagonale ekrana');
    write(' (pritisni  za nastavak)');
    readln;
    Drajver:=Detect;
    InitGraph(Drajver,Rezim,'');
    PutPixel(0,0,2);
    LineTo(GetMaxX,GetMaxY);
    MoveTo(GetmaxX,0);
    LineTo(0,GetMaxY);
    readln;
    CloseGraph
  end.