Напишите текст программы (любой язык программирования) для решения сле-дующей на пэвм: с клавиатуры вводится текстовая строка. найти в ней все предлоги «в» и заменить их на предлоги «на».

// pascalabc.net 3.1, сборка 1267 от 10.07.2016 begin   var s: =' '+readlnstring('> ');   s: =(s.replace(' в ',' на '))[2: ];   writeln(s); end. тестовые решения > можем пойти в кино, в театр, в кафешку, а можем посидеть в "знаниях" можем пойти на кино, на театр, на кафешку, а можем посидеть на "знаниях" > в лесу мы нашли вот такие грибы. на лесу мы нашли вот такие грибы.

//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: на на на на на на на на на на на на на на на на на на .

Калькулятор, компьютер, счеты, ленейка