[eXplorer]

накалякал что то:

Код:

var
nujnaya_kvartira:integer;
etajey_v_dome:integer;
nujnuy_etaj:integer;
begin
etajey_v_dome:=23;
nujnaya_kvartira:=14;
nujnuy_etaj:=nujnaya_kvartira div 3;
if nujnuy_etaj mod 2<>0 then
ShowMessage('Нужно выйти на '+inttostr(nujnuy_etaj)+' этаже')
else
ShowMessage('Нужно выйти на '+inttostr(nujnuy_etaj-1)+' этаже');
end;