01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / MOD / 1

Program ura;
Uses graph;
const
Gray50 : FillPatternType = ($AA, $55, $AA,
$55, $AA, $55, $AA, $55);
var Driver, mode, error:integer;
begin
  Driver:=Detect;
  Initgraph(Driver, Mode, '');
  Error:=Graphresult;
  if error<>grok{0} then
    begin
     writeln(grapherrormsg(error));
    end
  else
   begin

 SetColor(2);
 SetFillStyle(7, 8);
 bar3d(100, 50, 200, 400, 40, topon);
 
 readln;
 restorecrtmode;
 writeln('x: ', getmaxX);
 writeln('y: ', getmaxy);
 readln;
 setgraphmode(getgraphmode);
 closegraph
    end;
end.
end.