[cherepets]

im_zorg, так все ж формулы есть.

g:=10;
repeat
y:=0;
repeat
setcolor(255,255,255);
fillrect(0,0,240,320);
fillrect(10,y,10,10);
repaint;
delay(1000);
y:=y+v;
v:=v+g;
until y>=320;
until false; 


Писал сразу сюда, если есть ошибка - извини.