Блок-схема/

program nikita4;
var n,i,j:integer;
f2: text;
function deva(x1:integer):boolean;
var i:integer;
begin
deva:=true;
for i:=2 to x1-1 do  //2 0//2 0
                     //2 0//2 1 //Если (1 mod 2)=0
                     //2 0//2 2
                     //2 1//2 0 //
                     //2 1//2 1
                     //2 1//2 2
                     //2 2//2 0
                     //2 2//2 1
                     //2 2//2 2
                     //2 3//2 0
                     //2 3//2 1
                     //2 3//2 2
if (x1 mod i)=0 then deva:=false;//false - программа будет прервана
end;
 
begin
Assign(f2,'1.txt');
Rewrite(f2);
repeat
write('Введите натуральное число:');
read(n);//n=3
if (n<2) or (odd(n)=true) then //writeln('Введённое число должно быть чётным и больше двух!')
writeln('Введённое число должно быть чётным и больше двух!');
until (n>2) and (odd(n)=false);//Если чило n>2 значит оно четное, при (n mod 2)=0
 
for j:=1 to n do begin
for i:=1 to n do begin
if (deva(j)=true) and (deva(i)=true) and (i+j=n) then 
//j=1 i=1 2<>3//Введённое число должно быть чётным и больше двух!
// j=1 i=2 3=3//Проверка через процедуру
// j=1 i=3 4<>3//Введённое число должно быть чётным и больше двух!
//j=2 i=1 3=3//Проверка через процедуру
// j=2 i=2 4<>3//Введённое число должно быть чётным и больше двух!
// j=2 i=3 5<>3//Введённое число должно быть чётным и больше двух!
//j=3 i=1 4<>3//Введённое число должно быть чётным и больше двух!
// j=3 i=2 5<>3//Введённое число должно быть чётным и больше двух!
// j=3 i=3 6<>3//Введённое число должно быть чётным и больше двух!
writeln(f2,'Число ',n,' является суммой простых чисел ',j,' и ',i); //Вывод ответа
end;
Close(f2);
end;
end.