Напишите программу. Определить номер подъезда и этаж квартиры по её номеру, если известна этажность дома и количество квартир на лестничной площадке

Program P1;var z,x,y,p,e:integer;begin  write('Количество этажей = '); readln(x);  write('Количество квартир на лестничной площадке = ');  readln(y);  write('Номер квартиры = '); readln(z);  p:=(z-1) div (x*y)+1;  e:=((z-(p-1)*x*y)-1) div y +1;  writeln('Квартира ',z,' находится в ',p,' подъезде на ',e,' этаже');end.Пример:Количество этажей = 9Количество квартир на лестничной площадке = 4Номер квартиры = 67Квартира 67 находится в 2 подъезде на 8 этаже