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

спасибо

Синюю кнопочку :)

Написано на Pascalvar a:real;i,k:integer;beginwriteln('Введите 3 числа');for i:=1 to 3 dobeginread(a);if (a>=2.5) and (a<=5.2) then begin writeln('Число ',a,' входит в интервал'); k:=k+1; end;end;if k=0 then writeln('Таких чисел нет');end.