сделать информатику в прикрепленном файле.

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

// PascalABC.NET 3.3.5, сборка 1662 (29.04.2018)

begin

Println($'Среднее арифметическое : {ArrRandomInteger(40,0,20).Println.Where(e-> e.IsOdd).DefaultIfEmpty.Average}')

end.

// FreePascal

var

a: array[0..39] of integer;

i, c, s: integer;

begin

randomize;

for i := 0 to 39 do

begin

a[i] := random(21);

Write(a[i],' ');

if (a[i] mod 2 <>0) then

begin

inc(c);

s := s + a[i];

end;

end;

Writeln;

if c<>0

then Writeln('Среднее арифметическое: ',s/c)

else Writeln(0);

end.

// C++

#include <iostream>

#include <ctime>

using namespace std;

int main()

{

setlocale(LC_ALL, "Russian");

int a[40];

double c = 0, s = 0;

srand(time(0));

for (int i = 0; i < 40; i++) {

a[i] = rand() % 21;

cout << a[i] << " ";

if (a[i] % 2 != 0) {

c++;

s += a[i];

}

}

if (c!=0) cout << "\nСреднее арифметическое = " << s / c << endl;

else cout << "\nСреднее арифметическое = 0 " << endl;

system("pause");

return 0;

}