Представьте четное число 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

2*60=120 секунд. 120*256000 = 30720000байт передано, 30720000 /8/1024=3750кб