Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу (1,3) reshit' po Paskalu

program zz1;

var a, b, c:real; / / вводим переменные не целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

write (' введите третье число '); / / вводим с клавиатуры третье число

read (c);

if (a > 1) and (a < 3) then writeln (' первое число = ', a); / / проверяем на принадлежность интервалу первое число

if (b > 1) and (b < 3) then writeln (' второе число = ', b); / / проверяем на принадлежность интервалу второе число

if (c > 1) and (c < 3) then writeln (' третье число = ', c); / / проверяем на принадлежность интервалу третье число

end.