Нужен проект по информатике qbasic коды с движущимся , если кто такое делал, то !

Screen  7 color 1, 2 for x = 1 to 200 step 10     pset (x, 50), 4     sleep 1     pset (x, 50), 2 next x endдвижение точки.без dosboxcolor 1, 2for x = 1 to 20    cls    locate 5, x    print "*"    sleep 1next xend

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.

Uses wincrt; var n : integer; i : byte; begin write('sekund : '); readln(n); i : = n div 60; writeln('minut : ',i); end.