Определите прогрессивность структуры активной части ОПФ, если на начало года предприятие располагало следующим оборудованием: станки:
токарные — 47 ед. по 10 000 руб.;
фрезерные — 60 ед. по 8000 руб.;
сверлильные — 35 ед. по 5000 руб.;
фрезерные с ЧПУ (числовым программным управлением) — 20 ед. по 15 000 pyб.

//pascal abc.net 3.1 сборка 1256 var   s,s1: string; begin readln(s); if (s[1]='в') and (s[2]=' ') then   begin   delete(s,1,1);   s: ='на'+s;   end; if (s[1]='в') and (s[2]=' ') then   begin   delete(s,1,1);   s: ='на'+s;   end; while pos(' в ',s)< > 0 do   begin   if (s[1]='в') and (s[2]=' ') then   begin   delete(s,1,1);   s: ='на'+s;   end; if (s[1]='в') and (s[2]=' ') then   begin   delete(s,1,1);   s: ='на'+s;   end;   s1: =s1+copy(s,1,pos(' в ',s)-1)+' на ';   delete(s,1,pos(' в ',s)+2);   end;   if (s[1]='в') and (s[2]=' ') then   begin   delete(s,1,1);   s: ='на'+s;   end; if (s[1]='в') and (s[2]=' ') then   begin   delete(s,1,1);   s: ='на'+s;   end; s: =s1+s; writeln(s); end. пример ввода 1: запасти в зиму, приехать в год, приготовить в день, выпить лекарство в ночь пример вывода 1: запасти на зиму, приехать на год, приготовить на день, выпить лекарство на ночь пример ввода 2(глубокие песни современной отечественной эстрады): в в в в в в в в в в в в в в в в в в . пример вывода 2: на на на на на на на на на на на на на на на на на на .