4 задачи: ввести натуральное число и определить, верно ли, что сумма цифр равна 10…

Program pr1; uses crt; var i,l,j: integer; mas: array[byte] of integer; x: string; beginclrscr; writeln ('Vvedite x'); readln (x); i: =0; repeati: =i+1; val (x[i],l,j); mas[i]: =l; until i=length (x); j: =0; for i: =1 to length (x) do j: =j+mas[i]; if j=10 then writeln ('Verno') else writeln ('Ne verno'); end. Хуу… вот 3) решениеProgram pr3; uses crt; var i,l,j: integer; mas: array[byte] of integer; x: string; beginclrscr; writeln ('Vvedite x'); readln (x); i: =0; while i <= length (x) do begin i: =i+1; val (x[i],l,j); mas[i]: =l; end; j: =0; for i: =1 to length (x) do j: =j+mas[i]; writeln (j); end.