Вслово сок нужно вставить букву и чтобы получилось новое слово программе паскаль

// PascalABC.NET, версия 3.2

program ins;
const
I = 'т';
B = 'о';
var
s: string := 'сок';
begin
write(s, ' + ', I, ' = ');
Insert(I, s, pos(B, s));
writeln(s);
end.

#include <iostream>

using namespace std;

int main(){

unsigned short int Picture[4][4];

unsigned short int AverageBrightness = 0;

 

for(unsigned short int y = 0;y < 4;y++){

 for(unsigned short int x = 0;x < 4;x++){

  std::cin >> Picture[y][x];

  AverageBrightness = AverageBrightness + Picture[y][x];

 }

}

AverageBrightness = AverageBrightness / 16;

 

for(unsigned short int y = 0;y < 4;y++){

 for(unsigned short int x = 0;x < 4;x++){

  if(Picture[y][x] < AverageBrightness){

   Picture[y][x] = 0;

  }else{

   Picture[y][x] = 255;

  }

 }

}

 

for(unsigned short int y = 0;y < 4;y++){

 for(unsigned short int x = 0;x < 4;x++){

  std::cout << Picture[y][x];

 }

}

 

return 0;

}

Объяснение:

pascal

Объяснение:

1)

const n = 20;

var i, s: integer;

   a: array[1..n] of integer;

begin

 randomize;

 for i := 1 to n do

 begin

   a[i] := random(31) - 15;

   Write(a[i], ' ');

   if a[i] > 9 then s := s + a[i];

 end;

 WriteLn;

 WriteLn('Сумма элементов, больших 9, равна ', s);

end.

2)

const n = 20;

var i, s: integer;

   a: array[1..n] of integer;

begin

 randomize;

 for i := 1 to n do

 begin

   a[i] := random(31) - 15;

   Write(a[i], ' ');

   if a[i] mod 2 = 0 then s := s + a[i];

 end;

 WriteLn;

 WriteLn('Сумма четных элементов равна ', s);

end.