Написать код, чтобы получилось что-то типа траектории полёта мяча. вроде всё сделал правильно, но траекторию не рисует

Var       a, c: integer; begin       randomize;       a : = random(99999 + 99999 + 1) - 99999;       writeln('исходное числo: ', a);                     while a > 0 do       begin               c : = c + a mod 10;               a : = a div 10;       end;             if (c mod 3 = 0) and ((a mod 10) mod 2 = 0) then               writeln(' число делится на 6')       else               writeln(' число не делится на 6'); end.

Var       k: integer;       a, s: real; begin       write('начальная стоимость: ');       readln(a);       {write('число проданных газет:   ');       readln(k); }       k : = 200;             if k < = 50 then s : = k * a       else       begin               s : = 50 * a;               s : = s + (k - 50) * a * 1.2;       end;       writeln('выручка составила  ', s, ' руб.'); end.