program ringiliikumine;
  uses crt;
  var x, i, d, m:integer;
  begin
   for i:= 1 to 5 do
   begin
    textcolor(white); write('*');gotoxy(38, 10);
    textcolor(black); write('*');gotoxy(38, 10); delay(100);
    textcolor(white); write('*');gotoxy(36, 8);
    textcolor(black); write('*');gotoxy(36, 8); delay(100);
    textcolor(white); write('*');gotoxy(34, 6);
    textcolor(black); write('*');gotoxy(34, 6); delay(100);
    textcolor(white); write('*');gotoxy(27, 4);
    textcolor(black); write('*');gotoxy(27, 4); delay(100);
    textcolor(white); write('*');gotoxy(17, 4);
    textcolor(black); write('*'); gotoxy(17, 4);  delay(100);
    textcolor(white); write('*'); gotoxy(10, 6);
    textcolor(black); write('*'); gotoxy(10, 6);  delay(100);
    textcolor(white); write('*'); gotoxy(8, 8);
    textcolor(black); write('*'); gotoxy(8, 8); delay(100);
    textcolor(white); write('*'); gotoxy(6, 10);
    textcolor(black); write('*'); gotoxy(6, 10); delay(100);
    textcolor(white); write('*'); gotoxy(10, 14);
    textcolor(black); write('*'); gotoxy(10, 14); delay(100);
    textcolor(white); write('*'); gotoxy(17, 16);
    textcolor(black); write('*'); gotoxy(17, 16); delay(100);
    textcolor(white); write('*'); gotoxy(27, 16);
    textcolor(black); write('*'); gotoxy(27, 16); delay(100);
    textcolor(white); write('*'); gotoxy(34, 14);
    textcolor(black); write('*'); gotoxy(34, 14); delay(100);
    textcolor(white); write('*'); gotoxy(36, 12);
    textcolor(black); write('*'); gotoxy(36, 12); delay(100);
    end;
    textmode(lastmode);
  end.