program dijagonala1;
uses crt,graph;
var driver,mode:integer;
begin
  ClrScr;
  writeln(' Ovaj program prikazuje dijagonalu iz lijevog gornjeg ugla');
  write(' (pritisni <enter> za nastavak)');
  readln;
  driver:=detect;
  initgraph(driver,mode,'');
  Line(0,0,GetMaxX,GetMaxY);
  readln;
  closegraph
end.