{Задача на проверку симметричности строки}

var s:string;
    f:boolean;
    i,n:integer; {описание переменных}
begin
     readln(s); {Ввод строки}
     f:=true; {Присвоение переменной f значения true}
    for i:=1 to length(s) do {пока переменная i принимает значения от 1 до length(s), выполнять следующие действия}
         if s[i]<>s[length(s)-i+1] then f:=false; {проверка являются ли соттветствующие символы от начала и конца строки равными}
     if f then writeln('simm')
     else writeln('nesimm'); {вывод ответа}
     readln;
end.

{если количество * кратно трем то удалить все буквы после которых следуют точки}

var s:string;
    i,k:integer; {описание переменных}
begin
     readln(s); {ввод строки
     k:=0; {обнуление счетчика}
     for i:=1 to length(s) do {просмотр строки по символу}
         if s[i]='*' then k:=k+1;{если символ строки равен * то счетчик увеличивается на единицу}
     i:=1;
     if (k mod 3)=0 then {если количество * кратно трем то}
        while i<>length(s) do {пока не достигнем конца строки}
        begin
             if s[i+1]='.' then delete(s,i,1) {если следующий элемент точка, то удалить данный}
             else i:=i+1; {иначе перейти к проверке следующего символа}
        end;
     writeln(s);{вывод окончательной строки}
     readln;
end.

{если первый символ равен последнему то заменить все группы букв 'abc' на '+'}

var s:string;
    r:integer; {Описание переменных}
begin
     readln(s); {Ввод строки}
     r:=1;
     if s[1]=s[length(s)] then {если первый символ строки равен последнему то}
          while r<>0 do {пока r неравно 0 выполнять}
          begin
               r:=pos('abc',s); {нахождение первого вхождения фрагмента 'abc' в строку s}
               if r<>0 then {если фрагмент 'abc' входит в s то}
               begin
                    delete(s,r,3); {удалить этот фрагмент}
                    insert('+',s,r); {вставить на его место '+'}
               end;
          end;
     writeln(s); {вывод результата}
     readln;
end.

{если строка не симметрична и длина простое число то вставить после каждого '-' символ '+'}

var s:string;
    f,t:boolean;
    i:integer; {описание переменных}
begin
     readln(s); {ввод строки}
     f:=true;
     for i:=2 to length(s)-1 do
         if length(s) mod i=0 then f:=false; {проверкак длины строки на простоту}
     t:=true;
     for i:=1 to length(s) do
         if s[i]<>s[length(s)-i+1] then t:=false; {проверка строки на симметричность (см задачу один)}
     if f and not(t) then {если длина простая и строка несимметрична то}
     begin
          for i:=1 to length(s) do {просмотр строки по символам}
              if s[i]='-' then {если символ '-' тогда}
              insert('+',s,i+1); {вставить после него символ '+'}
     end;
     writeln(s);{вывод результата}
     readln;
end.

{если длина строки четна то вставить в её середину заданную подстроку}

var s,s1:string; {описание переменных}
begin
     readln(s);
     readln(s1);
     if length(s)mod 2 =0 then insert(s1,s,(length(s)div 2)+1);{если длина первой строки четна то вставить ей в середину вторую строку}
     writeln(s); {вывод результата}
     readln;
end.

ты лучше б не спрашивал а подтягивал своих))

это чтобы не сливалось в сплошной текст)) во всяком случае в три утра это всё сливалось))

№1

var a:array[1..100]of integer;
    i,n,k,j:integer;
function prost(a:integer):boolean;
begin
     prost:=true;
     for j:=2 to a-1 do
         if (a mod j)=0 then prost:=false;
end;
begin
     readln(n);
     for i:=1 to n do
         readln(a[i]);
     k:=0;
     for i:=1 to n do
         if (prost(a[i]))and(not(prost(i))) then k:=k+1;
     writeln(k);
     readln;
end.

№2

var a:array[1..100,1..100]of integer;
    i,j,n,m,s,k:integer;
function sov(a:integer):boolean;
begin
     k:=0;
     for i:=1 to a-1 do
         if (a mod i)=0 then k:=k+i;
     if k=a then sov:=true
     else sov:=false;
end;
begin
     readln(n,m);
     for i:=1 to n do
         for j:=1 to m do
             readln(a[i,j]);
     s:=0;
     for i:=1 to n do
         for j:=1 to n do
             if sov(a[i,j])and(not sov(i+j)) then s:=s+a[i,j];
     writeln(s);
     readln;
end.

№3

var a:array[1..100]of integer;
    i,n,j,max,k:integer;
function qv(a:integer):boolean;
begin
     qv:=false;
     for j:=1 to a do
         if j*j=a then qv:=true;
end;
begin
     readln(n);
     for i:=1 to n do
         readln(a[i]);
     k:=0;
     max:=0;
     for i:=1 to n do
         if qv(a[i]) then k:=k+1
         else
         begin
              if k>max then max:=k;
              k:=0;
         end;
     if max<k then max:=k;
     writeln(max);
     readln;
end.