{
TASK:skok
LANG:Pascal
}
program SKOK;
var n,m:integer;
procedure sort;
begin;
{procedure created to sort the apples by increasing the count of apples}
write(n,' ',n+1,' ',n+2,' ',n+2,' ',0)
{procedure ending}
end;

begin
repeat
read(n);readln(m);
until (m>0)and(m<1000)and(n<=1000)and(n>=0);
writeln('--------');
writeln(m);
writeln(n+1);
sort;
readln;
end.