Нужен проект по информатике 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

program gh;

    var a: array[ 1..10] of integer;

                i: integer;

begin

  for i: =1 to 10 do

        begin

              a[i] : = random(20) + 20;

              write(a[i]);

        end;

end.

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.