program matricas;
 uses crt;

 var n,l,i,j,m,k,r:integer;

 pag : array[1..2,1..20]of integer;
 incid: array[1..15,1..15]of integer;
 blakus: array[1..15,1..20] of integer;
 label again,again2;

 BEGIN
 clrscr;
 again:
 writeln('9<n<16!');
 readln(n);
 if (n<10)or(n>15) then
 begin
 writeln('Vwrong!');
 goto again;
 end;

  again2:
  writeln('12<l<20!');
  readln(l);
 if (l<13)or(l>19) then
 begin
 writeln('wrong');
 goto again2;
 end;


writeln('...');
for i:=1 to l do
begin
     writeln('Ievadi ',i,'. loku : ');
     readln(pag[1,i]); 
     readln(pag[2,i]);   end;
for i:=1 to l do
begin
writeln(pag[1,i]);
writeln(pag[2,i]);
end;