Псевдокод:
N - номер квартиры
iTop = N div 4;
if(N mod 4 > 0) iTop++;
Npd = (iTop-1) div 9 + 1; // Подъезд
Net = (iTop-1) mod 9 + 1; // Этаж
Решение смотри во вложении
Боря приехал из: Омска
Гриша приехал из: Санкт-Петербурга
Егор приехал из : Кирова
var a,b,c,d,e,f:integer;
begin
for a:=100 to 999 do begin
b:=a div 100;
c:=a mod 10;
d:=a mod 100;
e:=d div 10;
f:=c+b+e;
if (f mod 7=0) and (a mod 7=0) then
writeln(a,' ');
end;
end.