var
s, a, b, c, x, q, f : integer;

PROCEDURE one;
begin
q:=(s div 2)-2;
for x:=0 to q do
begin
a:=1;
b:=1+x;
c:=s-(a+b);
Writeln('__________');
Writeln('|',a,'|',b,'|',c,'|');
end;
end;
PROCEDURE two;
begin
repeat
b:=x;
a:=x;
c:=s-(a+b);
Writeln('__________');
Writeln('|',a,'|',b,'|',c,'|');
x:=x+1;
until c<=f;
end;
begin
Write('Vvedite chislo dla razbienia :');
Readln(S);
Write('Chislo dla razbienia ',S);
one;
c:=1;
x:=2;
if odd(s)=true then
f:=1
else
f:=0;
two;
Writeln('__________');
Readln;
end.