program Tarelka;
uses crt;
var x,y,kiirus,kiirusx, kiirusy: integer;

procedure kirjutaO(kx, ky: integer);
begin
 gotoxy(kx,   ky  ); writeln('    *******     ');
 gotoxy(kx,   ky+1); writeln('  **       **   ');
 gotoxy(kx,   ky+2); writeln('**   +   +   ** ');
 gotoxy(kx,   ky+3); writeln('  **  ---   **  ');
 gotoxy(kx,   ky+4); writeln('    *******     ');
end;


begin
 clrscr;
 x:=2;
 y:=3;
 kiirusx:=2;
 kiirusy:=1;
repeat
if x<5 then kiirusx:=abs(kiirusx);
if x>60 then kiirusx:=-abs(kiirusx);
x:=x+kiirusx;
if y<3 then kiirusy:=abs(kiirusy);
if y>19 then kiirusy:=-abs(kiirusy);
y:=y+kiirusy;


 kirjutaO(x,y);
 delay(70);
 textcolor(blue);
 kirjutaO(x,y);
 textcolor(blue);
 kirjutaO(x,y);

 sound(500); delay(100);
 sound(750); delay(100);
 sound(1000);delay(100);
 sound(750); delay(100);
 sound(1000);delay(100);
 sound(750); delay(100);
 sound(50);  delay(200); {sound(0);delay(10);}


until keypressed;
nosound;
 TextMode(LastMode);
end.