{* Полет ракеты *}

Unit RAKETA;
Interface
Implementation
Begin
 writeln('Полет ракеты
');
End.

Program raketa;

Uses raketa.pas; {* Эту строку можно удалить *}
{ZEVS}
Uses crt, graph; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  gd   : integer;
  gm   : integer;
  cor  : integer;
  zvuk : String;
Begin
  textcolor(17 + 3); {* 17 текст *}
  writeln('Zapustit raketu so zvukom da, net');
  readln(zvuk);
  gd := detect;
  initgraph(gd, gm, '');
  cor := 350;
  setbkcolor(1);
  While cor > = - 130 Do
  Begin
    If zvuk = 'da' Then
      sound(1000);
    setcolor(4);
    circle(250, cor, 20);
    circle(250, cor + 50, 20);
    circle(250, cor + 100, 20);
    rectangle(220, cor - 30, 280, cor + 130);
    line(220, cor - 30, 250, cor - 60);
    line(250, cor - 60, 280, cor - 30);
    line(280, cor + 80, 310, cor + 100);
    line(310, cor + 100, 310, cor + 170);
    line(310, cor + 170, 280, cor + 130);
    line(220, cor + 80, 190, cor + 100);
    line(190, cor + 100, 190, cor + 170);
    line(190, cor + 170, 220, cor + 130);
    delay(5000);
    setcolor(0);
    circle(250, cor, 20);
    circle(250, cor + 50, 20);
    circle(250, cor + 100, 20);
    rectangle(220, cor - 30, 280, cor + 130);
    line(220, cor - 30, 250, cor - 60);
    line(250, cor - 60, 280, cor - 30);
    line(220, cor + 20, 190, cor + 50);
    line(280, cor + 80, 310, cor + 100);
    line(310, cor + 100, 310, cor + 170);
    line(310, cor + 170, 280, cor + 130);
    line(220, cor + 80, 190, cor + 100);
    line(190, cor + 170, 220, cor + 130);
    line(190, cor + 100, 190, cor + 170);
    cor := cor - 10;
  End;
  nosound;
  closegraph;
  textcolor(17 + 8); {* 17 текст *}
  writeln('Raketa uletela nagmite klavichu!!!');
  sound(1000);
  delay(4000);
  nosound;
  readkey; {* Нажмите любую клавишу *}
End.