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

Program Suka;
uses
  Graph, CRT;
var
  grDriver : Integer;
  grMode   : Integer;
   x1, y1, x2, y2, x3, y3:integer;


begin
  grDriver := Detect;
  InitGraph(grDriver,grMode,'');
  Randomize;
  ClearDevice;
  repeat
  Delay(1000);
  x1:=Random(640);
  y1:=Random(480);
  x2:=Random(640);
  y2:=Random(480);
  x3:=Random(640);
  y3:=Random(480);
  SetColor(Random(100));
  line(x1, y1, x2, y2);
  line(x2, y2, x3, y3);
  line(x3, y3, x1, y1);

  Until KeyPressed;
  Readln;
end.