var
i,n:integer;
begin
read(n);
for i:=0 to 3 do
writeln (4*n-i);
end.
Program fasf;
n,q:integer;
write('Введите этаж:');
readln(n);
q:=n*4;
writeln('Квартиры:',q,q-1,q-2,q-3);
var
i,n:integer;
begin
read(n);
for i:=0 to 3 do
writeln (4*n-i);
end.
Program fasf;
var
n,q:integer;
begin
write('Введите этаж:');
readln(n);
q:=n*4;
writeln('Квартиры:',q,q-1,q-2,q-3);
end.