Ввести три числа. Вывести на экран те из них, которые принадлежат интервалу (2,5-5,2).

Написано на Pascal

var a:real; i, k:integer;

begin

writeln ('Введите 3 числа');

for i:=1 to 3 do

begin

read (a);

if (a>=2.5) and (a<=5.2) then begin

writeln ('Число ', a,' входит в интервал');

k:=k+1;

end;

end;

if k=0 then writeln ('Таких чисел нет');

end.