Диаметр колеса автомобиля 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.