ПОМОГИТЕ ПОЖАЛУЙСТА!!! алгоритмизация. 1. Даны три вещественных числа. Выбрать те из них, которые принадлежат интервалу [1,3] 2.найти сумму цифр трехзначного числа. определить, является ли сумма однозначным числом.

1)   program pr1; var i:integer; n,n2,n3:real; begin for i:=1 to 3 do begin   writeln('daite tzifru'); readln(n);   if n in [1..3] then writeln('Prenodlejit intervalu') esle writeln('Ne prenodlejit intervalu');  end; readln; end.   2)   program p2; var i,c,cod,summa:integer; s:string;   begin  writeln('daite tzivfru'); readln(s);   for i:=1 to length(s) do    begin      val(s[i],c,cod); summa:=summa+c;    end; str(summa,s); if length(s)>1 then writeln('Summa ne yavljaetsya odnoznachnim chislom: ',s) else  writeln(Summa  yavljaetsya odnoznachnim chislom: ',s); readln; end.