program raam;
uses graph;
{$I graafika.pas}


begin
KaivitaGraafika;
 line(0, 0, getmaxx, 0);
 line(getmaxx, 0, getmaxx, getmaxy);
 line(getmaxx, getmaxy, 0, getmaxy);
 line(0, getmaxy,0, 0);
 readln;
 closegraph;
end.