[i]Program Task52;
[i]Var
k,p,e : Integer;
Begin
Write ('Номер квартиры : ');
Readln(k);
p:=(k-1) div (9*4) + 1;
e:=((k-1) mod (9*4)) div 4 + 1;
Writeln ('Подъезд : ',p,' Этаж : ',e);
Readln;
End.