program Etazh;
var
  Komnata: integer;
begin
  WriteLn('Введите номер комнаты');
  ReadLn(Komnata);
  if Komnata < 100 then
    WriteLn('Комната находится в подвале');
  if (Komnata >= 100) and (Komnata < 200) then
    WriteLn('Комната находится на первом этаже');
  if (Komnata >= 200) and (Komnata < 300) then
    WriteLn('Комната находится на втором этаже');
  if (Komnata >= 300) and (Komnata < 400) then
    WriteLn('Комната находится на третьем этаже');
  if (Komnata >= 400) and (Komnata < 500) then
    WriteLn('Комната находится на четвертом этаже');
  if (Komnata >= 500) and (Komnata < 600) then
    WriteLn('Комната находится на пятом этаже');
end.