я лох... одна всё таки ошибка есть
(((((((((((((((((( извеняюсь...
вот рабочий код:
Код:
var
nujnaya_kvartira:integer;
etajey_v_dome:integer;
nujnuy_etaj:real;
begin
etajey_v_dome:=23;
nujnaya_kvartira:=7;
nujnuy_etaj:=nujnaya_kvartira/3;
if frac(nujnuy_etaj)<>0 then
nujnuy_etaj:=nujnuy_etaj+1;
if trunc(nujnuy_etaj) mod 2<>0 then
ShowMessage('Нужно выйти на '+inttostr(trunc(nujnuy_etaj))+' этаже')
else
ShowMessage('Нужно выйти на '+inttostr(trunc(nujnuy_etaj))+' этаже');
end;