Пожалуйста, сделайте на pascal

Ответ:

begin

  var квартира := ReadInteger();

  var подъезд := (квартира + 35) div 36;

  var этаж := (квартира - (подъезд - 1) * 36 + 3) div 4;

  Writeln(подъезд, ' ', этаж);

end.

Объяснение: