Даны 3 вещественных числа. вывести на экран те из них, которые принадлежат интервалу (1,6 ; 3,8). если ни одно число не подходит, ты вывести на экран сообщение: "ни одно число не принадлежит интервалу".

ПЕР
  числа: РЯД 3 ИЗ ВЕЩ;
  сч: ЦЕЛ;
  найдено: КЛЮЧ;

УКАЗ
  найдено := ОТКЛ;
  ОТ сч := 0 ДО РАЗМЕР(числа) - 1 ВЫП
    ЕСЛИ числа[сч] > 1.6 И числа[сч] < 3.8 ТО
      Вывод.ЧВещ("%g ", числа[сч], 0, 0, 0);
      ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
    КОН
  КОН;
  ЕСЛИ НЕ найдено ТО
    Вывод.Цепь("Ни одно число не принадлежит интервалу.")
  КОН