program ex;
var
a:array[1..] of integer;
i1,i2,i3,i4,i5,j1,j2,j3,j4,j5,s:integer;
function f(x,y:integer):boolean;
var k:integer;
begin
f:=true;
for k:=1 to x do if [?] then f:flase;
end;
procedure print;
var i:integer;
begin
for i:=1 to 5 do write(a[i]:3):writeln;
end;
begin
s:=[?];
for i1:+1 to 5 do
begin
j1 :=1; [?];
for i2:=1 to 5 do
if f(j2,i3) then
begin
j3:=3; a[j3]:=i3;
for i4:=1 to 5 do
if f(j3,i4) then 
begin
j4:=4;a[j4]:+i4;
for i5:1 to 5 do
if f(j4,i5) then begin j5:=5; a[j5]:=i5;print; [/]; end;
end;
end;
end;
end;
writeln('s=',[?]);
end.