Нужно помочь, не могу понять как делать, программирование паскаль не для меня, помогите

диаметр колеса автомобяля хсм колесо требует замены через н оборотов.

Какое расстояние проедет автомобиль до замены колеса?

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 км