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

Var     a,r: real;     i,l,z: integer;     s: string; begin read(s); l: =length(s); i: =1; r: =0; while (s[i]in['0'..'9'])and(i< l) do     begin     r: =r*10+strtoint(s[i]);     i: =i+1     end; while i< l do     begin     case s[i] of           '+': z: =0;           '-': z: =1;           '*': z: =2;           '/': z: =3;     end;     i: =i+1;     a: =0;     while (s[i]in['0'..'9'])and(i< l) do           begin           a: =a*10+strtoint(s[i]);           i: =i+1           end;     if i=l then a: =a*10+strtoint(s[l]);     case z of           0: r: =r+a;           1: r: =r-a;           2: r: =r*a;           3: r: =r/a;     end;     end; writeln('r = ',r); end.

Эта программа позволяет находить количество слов в предложении, если слова разделены одним пробелом: var s: string;       i,k: integer; begin    writeln('введите строку');     readln(s);     k: =0;     for i: =1 to length(s) do    begin        if s[i]=' ' then k: =k+1;     end;     writeln('количество слов в предложении = ',k+1); end. а эта программа позволяет находить количество слов в предложении, если слова разделены одним или несколькими пробелами: var s: string;         i, k: integer; begin    k : = 0;     writeln('введите строку: ');     readln(s);     s: = ' ' + s;     for i: =1 to length(s)-1 do        if (s[i] = ' ') and (s[i+1] < > ' ') then k: =k+1;     writeln(k) end.