Программа написана и протестирована на языке PascalABC.NET

1. var
2.    A, B, C: real;
3.    e, f: real;
4. begin
5.    Readln(A, B, C);
6.    Readln(e, f);
7.    
8.    if (A >= e) and (A <= f) then Writeln(A);
9.    if (B >= e) and (B <= f) then Writeln(B);
10.    if (C >= e) and (C <= f) then Writeln(C);
11. end.

Для увеличения картинки нажмите на лупу (расположена на фотографии) либо откройте фотографию в новой вкладке.