uses crt;
var i,x,y,kiirus: integer;
begin
x:=6; kiirus:=1;
randomize;
clrscr;
textbackground(round(random(250)));
clrscr;



 repeat
   if x<5 then kiirus:=abs(kiirus);
   if x>70 then kiirus:=-abs(kiirus);
   x:=x+kiirus;
   y:=round(4*sin (x/5))+5;
   if kiirus > 0 then textcolor (lightmagenta)
    else textcolor(yellow);
gotoxy(x,12); write('GALINA');
gotoxy(x,y);if kiirus > 0 then textcolor(x)
else textcolor(y);writeln('*');
gotoxy(x,24-y);if kiirus>0 then textcolor(y)
else textcolor(x);writeln('*');

sound(y*15);
delay (100);

until keypressed;
TextMode(LastMode);

nosound;
end.