program linija2;
uses crt,graph;
var driver,mode,x:integer;
begin
  ClrScr;
  writeln(' Ovaj program prikazuje vertikalnu liniju');
  writeln;
  write(' Unesite X-ordinatu neke tacke linije ');
  readln(x);
  driver:=detect;
  initgraph(driver,mode,'');
  if (x>GetMaxX) or (x<0)
    then
      begin
        restorecrtmode;
        write('X mora biti u intervalu [0,',GetMaxX,']');
        readln
      end
    else
    begin
      driver:=detect;
      initgraph(driver,mode,'');
      Line(x,0,x,GetMaxY);
      readln;
      closegraph
    end
end.