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

Var x,y,z:longint;
begin
writeln(' TEST');
writeln(' выберите верный вариант ответа 1,2 или 3');
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
if (y=3)then write('ваша оценка 5');
if (y=2)then write('ваша оценка 3');
if (y=1)then write('ваша оценка 2');
end.
проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале

Var a1,b1,n,d:integer;
sa:real;
begin
writeln('vvedite perviy element arefmeticescoy progressii=');
readln (a1);
writeln('skoliko cisel');
readln(n);
writeln('raznosti arefmeticescoy progressii=');
readln(d);
writeln ( 'summa arefmeticescoy progressii=');
sa:=((2*a1+(n-1)*d)/2)*n;
write(sa);
readln;
end.


var i,j,q,n:integer; 
z,b,b1,sg:real;
begin
write('vvedite perviy element geometricescoy progressii');
read(b1);
writeln('q=');
readln(q);
writeln('n=');
readln(n);
for i:= 1 to n do
 begin
z:=i;
b:= b1 *Power(q,z-1);
sg:= sg + b;
end;
writeln('summa geometricescoy progressii=',sg);
readln;
end.