program phuongt;
uses crt;
var i, s, n: integer;
begin
clrscr;
write('Nhap n nguyen duong = '); readln(n);
if n<0 then write('Sai, nhap lai') else
begin
s:=0;
for i:=1 to n do if i mod 2 = 0 then
begin
s:=s+1;
write(i:4);
if s=15 then
begin
writeln();
s:=0;
end;
end;
end;
readln
end.