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