Помогите с икт

Помогите с икт
Диаметр колеса автомобиля 80 см. Колесо потребует замены через 200 000 оборотов. Составить программу определяющую, доедает ли колесо от города Воронеж до города N-ска, если расстояние между ними X километров.

  • Для решения этой задачи достаточно знать формулу, для нахождения длины окружности (ведь колесо - окружность), а затем проверить какое расстояние пройдет колесо, прежде, чем потребует замены. Обозначим диаметр колеса d, s- длина окружности, iznos - расстояние, которое пройдет колесо, r - расстояние до города, при заданных параметрах программа на Паскале будет иметь вид:

    const pi=3.14;
    var r,d,iznos,n:integer; 'резервируем место в памяти для переменных
    s:real;
    begin
    'вводим данные
    writeln('Введите диаметр колеса в сантиметрах');
    readln(d);
    writeln('Через сколько оборотов колесо потребует замены?');
    readln(n);
    writeln('Сколько ехать до города?');
    readln(r);
    iznos:=(pi*d*n); 'вычисления
    'проверка результата и вывод решения
    if (iznos>=r) then
    begin
    writeln('Колесо доедет до города');
    end;
    if iznos < r then begin writeln('Не доедет придется менять...') end; end. Если ты внимательно прочла решение, то непременно обратила внимание на то, что в нем содержится ошибка, точнее не ошибка, а недочет - расстояние до города мы вводим в километрах, а диаметр колеса в сантиметрах.