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

//1 var average: real; i,cnt: integer; begin for i: = 10 to 99 do   if (i mod 7 = 0) then       begin           average : = average + i;           inc(cnt);       end; average: =average / cnt; writeln(average); end. //2 var average: real; i,cnt: integer; begin i: = 0; cnt: = 0; while (true) do begin   inc(i);   if (i mod 5 = 0) then       inc(cnt);   average: =average + i;   if (cnt = 10) then       break end; average : = average / 10; writeln(average); end.

Var a: array[1..100000] of integer; b: array[0..9]of boolean; n,i: integer; procedure two_max; var cnt, i: integer; begin   for i: = 1 to n do       b[a[i]]: = true;   for i: = 9 downto 0 do       if (b[i] = true)and(cnt < 2) then           begin               inc(cnt);               write(i, ' ');           end; end; begin read(n); for i: = 1 to n do   read(a[i]); two_max; end.