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

 program f1;
  uses  crt,
    Graph;
  const
    Triangle : array[1..4] of PointType =
     ((x:  50; y: 100),
      (x: 100; y: 100),
      (x: 150; y: 150),
      (x:  50; y: 100));
  var
    Gd, Gm,i : Integer;
  begin
    Gd := Detect; InitGraph(Gd, Gm, 'e:\pas');
    if GraphResult <> grOk then Halt(1);

    DrawPoly(SizeOf(Triangle) div
              SizeOf(PointType), Triangle);
    setwritemode(xorput);
    repeat
    for i:=0 to 20 do
    if not keypressed then
    begin

    ReadLn;
    CloseGraph;
  end.


 uses graph;
 var gd,gm,d,x1,x2,x3,x4,x5,y1,y2,y3,y4,y5:integer;
 begin
 gm:=detect;
 initgraph(gm,gd,'e:\pas');
drawpoly(5,x1);

line(25,25,700,700);
readln;
closegraph;readln;

end.