Паскаль.даны три вещественных числа. вывести на экран те их них, которые принадлежат интервалу (1,6 - 3,8).

Var
  a: array[1..3] of real;
  i, n: integer;

begin
  Write('Введите через пробел три любых числа: ');
  Readln(a[1], a[2], a[3]);
  for i := 1 to 3 do
    if (a[i] >= 1.6) and (a[i] <= 3.8) then Writeln(a[i])
end.

Введите через пробел три любых числа: 13.43 2.41 -1.34
2.41