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

Program znanijatop;
const
    left = 1;
    right = 3;
    i = 3;
var
    k:byte;
    x:array [1..I] of real;
begin
    k:=0;
    while k<i do begin
    k:=k+1;
    readln(x[k]);
    end;
k:=0;
    while k<i do begin
    k:=k+1;
        if (x[k] > left) and (x[k] < right) then writeln((x[k]));
    end;
end.