Нужно , не могу понять как делать, программирование паскаль не для меня , диаметр колеса автомобяля хсм колесо требует замены через н оборотов. какое расстояние проедет автомобиль до замены колеса?

Var
  d, n, s: real;

begin
  Write('Диаметр колеса, см -> ');
  Readln(d);
  Write('Количество оборотов колеса -> ');
  Readln(n);
  Write('Ресурс пробега колеса равен ', n * Pi * d*1e-5:0:0, ' км')
end.

Тестовое решение:

Диаметр колеса, см -> 57.7
Количество оборотов колеса -> 2.1e7
Ресурс пробега колеса равен 38067 км