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

{‘ва®Ёв „ўЁ¦гйЁҐбп Ё§®Ўа. Ќ‹Ћ ­  д®­Ґ §ўс§¤­®Ј® ­ҐЎ }
Program Xa;
Uses Graph, crt;
var Driver, Mode, x, y, r, i:integer;
Begin
  R:=40;
  x:=r*5;
  y:=r*2;
  Driver:=Detect;
  Initgraph(Driver, Mode, '');
  Setcolor(3);
  For i:=1 to 600 do
    Putpixel(Random(i), Random(i), i);
  repeat
    Ellipse(x, y, 0, 360, r, (r div 3)+2);
    ellipse(x, y-4, 190, 357, r, r div 3);
    line(x-17, y-16, x-25, y-22);
    line(x+17, y-16, x+25, y-22);
    circle(x+25, y-25, 2);
    circle(x-25, y-25, 2);
    Setfillstyle(1, 3);
    Floodfill(x+1, y+4, 3);
    Delay(150);
    Cleardevice;
    for i:=1 to 600 do
      Putpixel(random(i), random(i), i);
    x:=x+random(10);
    y:=y+random(10);
  Until(Keypressed);
  Closegraph
END.