program liikumine;
uses crt;
var x, kiirus: integer;
begin
 clrscr;
 x:=5;
 kiirus:=1;
repeat
if x<5 then kiirus:=abs(kiirus);
if x>70 then kiirus:=-abs(kiirus);
x:=x+kiirus;
 textcolor(white);
 gotoxy(x, 10);
 write('*');
 delay(10);     
 textcolor(black);
 gotoxy(x, 10);
 write('*');
until keypressed;
  TextMode(LastMode);
end.