Даны три числа. Выбрать те из их, которые принадлежат данному

Программка написана и протестирована на языке 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 gt;= e) and (A lt;= f) then Writeln(A);
9.    if (B gt;= e) and (B lt;= f) then Writeln(B);
10.    if (C gt;= e) and (C lt;= f) then Writeln(C);
11. end.

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