ПОМОГИТЕ ПОЖАЛУЙСТА! Алгоритмизация. 1. Даны тривещественных числа

1) program pr1; var i: integer; n,n2,n3: real; beginfor 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.