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