Представьте четное число n (2 пример ввода: 110 вывод: 7+103 составьте паскаль программы нужно

Function isprime(m: integer): boolean; var   i: integer;   p: boolean; begin   p : = true;   for i : = 2 to m - 1 do       if (m mod i) = 0 then p : = false;   isprime : = p end; var   n, i, j: integer;   flag: boolean; begin   repeat       write('введите натуральное число, большее 2 : ');       readln(n);       flag : = (n < 2) or (n mod 2 = 1);       if flag then           writeln('число введено с нарушением, повторите ввод');   until not flag;   writeln('варианты представления числа в виде суммы двух простых: ');   for i : = 1 to n do       for j : = 1 to (n div 2) do           if (isprime(i) and isprime(j)) and (i + j = n) then writeln(i, '+', j); end. тестовое решение: введите натуральное число, большее 2: 110 варианты представления числа в виде суммы двух простых: 67+43 73+37 79+31 97+13 103+7 107+3 109+1

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var n: =5;   writeln('*** исходная матрица ***');   var a: =matrrandom(n,n,-50,50);   a.println(4); writeln(4*a.colcount*'-');   var (k,p): =readinteger2('введите через пробел номера двух строк: ');   if k.between(1,n) and p.between(1,n) then begin       a.row(k-1).zip(a.row(p-,y)-> x*y).println;       end end. пример *** исходная матрица ***   -45 -38 -15  34 -13     1 -38  39  34 -25   24 -41  -4 -25 -48     5 -19 -43 -15 -31   -21  27 -31  23 -39 введите через пробел номера двух строк: 2 5 -21 -1026 -1209 782 975

Var s,st: string;     a: array[1..255] of integer;     i: integer;     begin   write('строка: ');   readln(s);   for i: =1 to 255 do a[i]: =0;   for i: =1 to length(s) do inc(a[ord(s[i])]);   st: ='';   for i: =1 to length(s) do     if ((a[ord(s[i])]> =2) and         (s[i] in ['а'..'я']))   then continue     else st: =st+s[i];   writeln('новая строка: ',st); end. строка: это строка для проверки. новая строка: э са для пвеи. если нужно, чтобы не различались прописные и строчные буквы, то другой вариант программы: var s: string;     a: array[1..255] of integer;     i,j: integer;     begin   write('строка: ');   readln(s);   for i: =1 to 255 do a[i]: =0;   for i: =1 to length(s) do   if ord(s[i])> 32 then   begin     inc(a[ord(s[i])]);     if s[i] in ['а'..'я'] then inc(a[ord(uppercase(s[i]))])     else if s[i] in ['а'..'я'] then inc(a[ord(lowercase(s[i]))]);   end;     j: =0;   for i: =1 to length(s) do   if (a[ord(s[i])]> =2) then continue   else    begin     inc(j);     s[j]: =s[i];   end;     delete(s,j+1,length(s)-j);   writeln('новая строка: ',s); end.