uses crt;
var t,i,m,s:longint;
begin
clrscr;
t:=184; m:=1;
while t<=1727 do
begin
inc(i);
inc(t,184 div 2);
if i=1 then inc(s,1);
if i=2 then inc(s,4) else inc(s,m);
if i<>1 then m:=M*2;
writeln(t,' ',m);
end;
writeln('Can ',s,' cay mang');
readln
end.
Hinh minh hoa: