Выполнить задание в компиляторе: Дана строка. Вставьте после каждой буквы ‘w’ – символ КАК ЭТО СДЕЛАТЬ.НАПИШИТЕ ПРОГРАММУ ПО ФОТО ПРИМЕР.

Var
    n, i, prev: integer;

function IsSimpleNumber(n: integer): boolean;
var
    i: integer;
begin
    IsSimpleNumber := true;
    
    for i := 2 to round(sqrt(n) + 1) do
        if n mod i = 0 then begin
            IsSimpleNumber := false;
            exit;
        end;
end;

begin
    read(n);
    prev := 0;
    
    for i := n to 2 * n do
        if IsSimpleNumber(i) then
            if prev = 0 then
                prev := i
            else if i - prev = 2 then begin
                writeln(i, ', ', prev, ' - близнецы');
                halt;
            end
            else prev := i;
    
    writeln('Близнецов нет');
end.

Program _9;
Type marr = array [1..100,1..100] of real;
procedure p1(var x:marr;r1,r2:integer);
var i,j:integer;
begin
for i:=1 to r1 do
 begin
 for j:=1 to r2 do
  begin
   x[i,j]:=random(10);
   write(x[i,j]:4);
  end;
  writeln;
 end;
end;
function f1(var x:marr;r1,r2:integer):integer;
var i,j,k:integer;
begin
k:=0;
for i:=1 to r1 do
 for j:=1 to r2 do
   if (x[i,j]>=0)and(x[i,j]<=1) then k:=k+1;
f1:=k;
end;
Var a,b: marr; n,m,s,d: integer;
Begin 
randomize; 
writeln('n,m:');
readln(n,m);
writeln('Первая таблица:');
p1(a,n,m);
writeln('s,d:');
readln(s,d);
writeln('Вторая таблица:');
p1(b,s,d);
writeln('k1 = ',f1(a,n,m));
writeln('k2 = ',f1(b,s,d));
end.