Создать компьютерную модель, имитирующую механическое движение тел

//посчитаем путь для масштаба, ничего не рисуем
t1:=0;//начнем движение с ускорением
v:=v0;
while t1<=t do //пока время движения не больше заданного
 begin
  if v*3600/1000<=100 then//если скорость не более 100 км/час
   begin
    v:=v0+a*t1;//ускоряемся
    s:=v0*t1+a*t1*t1/2//считаем путь с ускорением
   end
  else s:=v*t1; //иначе с постоянной, достигнутой скоростью
  t1:=t1+1;
 end;
 //будем рисовать
x0:=60;//начальные координаты
y0:=200;
m:=(windowwidth-x0-20)/500; //горизонтальный масштаб для координатной оси
m1:=(windowwidth-x0-80)/s; //масштаб для расстояний
clearwindow;  //чистим экран
fon; //рисуем фон (координаты)
auto(x0,y0); //машину
lockdrawing; //блокируем вывод в графическое окно
v:=v0;//начальная скорость в м/сек
t1:=0;//время движения
dt:=10;//приращение времени
x:=x0;//начало
s:=0; //пройдено 0
repeat
sleep(100); //задержка 0.1 сек
clearwindow;//очистка экрана
if v*3600/1000<100 then //пока скорость меньше 100 км/час
 begin
  v:=v+a*t1;//ускоряемся
  dt:=dt+50; //шаг времени 50 сек
  s:=s+v0*t1+a*t1*t1/2; //движемся с ускорением
 end
else s:=s+v*dt;//потом с постоянной скоростью
x:=x0+round(s*m/1000);//положение авто(перед)
t1:=t1+dt;//увеличиваем время
fon; //фон
auto(x,y0); //машина
setbrushstyle(bsClear);//убираем фон машины
redraw; //перерисовываем
until t1>t; //прошло заданное время-конец
unlockdrawing; //разрешим рисование в окне
setbrushstyle(bsClear);//выведем результат
textout(20,20,'Пройдено расстояние='+inttostr(round(s/1000))+' км');
end.