Програмування Pascal, Детальна інформація

st:='Поздоровляю!!! Ви влучили!!!!!!!!'

else st:='Потрiбно ще трохи потренуватися...';

exit:=true;

outtextxy (200,20,st);

readkey;

goto 2;

end;

setcolor (0);

line (x-5,7,x-1,5);

putpixel (x,7,yellow);

setcolor (yellow);

if y<178 then

begin

putpixel (x,190-y,red);

circle (x,190-y,1);

end;

t:=t+0.02;

delay (15);

setcolor (0);

if y<178 then circle (x,190-y,1);

y:=round(vy*t-(g*t*t)/2);

x:=round(vx*t);

t:=t+0.02;

if keypressed then

begin

if readkey=#27 then exit:=true;

end;

end;

2:

setcolor (yellow);