диаметр колеса автомобиля 80 см,колесо потребует замены через 200000 оборотов.Написать алгоритм определяющий доедет ли колесо от москвы до города эмска

1)
var
n,m:longint;
mem:double;
begin
write('Введите минуты и секунды песни: ');readln(n,m);
mem:=(n*60+m)*16/1024;
if(mem>6)then writeln('Не хватает: ',6-mem,' МБ')
else writeln('Места хватает');
end.
2)
var
dl:double;
x:longint;
begin
write('Введите расстояние: ');readln(x);
x:=x*100000;
dl:=80*3.14;
if(x/dl>200000)then writeln('Не доедет')
else writeln('Доедет');
end.