\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}
`@`$\texttt{Pascal: }$

*Câu 3 :

var s : string;
  function check_is_number(s:string):boolean;
        var temporary_num : longint;
     begin
    val(s,temporary_num);
    exit(temporary_num<>0);
     end ;
     
  function sum_number_string(n:string):longint;
        var result_sum, i, temporary_variable : longint;
         begin
        result_sum := 0;
        for i := 1 to length(n) do
             begin
            val(n[i],temporary_variable);
            inc(result_sum,temporary_variable);
             end ;
        exit(result_sum);
         end ;
         
  function max_number_string(n:string):char;
        var result_max_char : char;
            i : longint;
         begin
        result_max_char := n[1];
        for i := 1 to length(n) do
            if result_max_char < n[i] 
                then result_max_char := n[i];
        exit(result_max_char);
         end ;
         
  procedure print_largest_numbers_position(n:string);
        var max_char_numer : char;
            i : longint;
         begin
        max_char_numer := max_number_string(n);
        for i := 1 to length(n) do 
            if max_char_numer = n[i] then write(i,' ');
         end ;
begin
    assign(input,'SO.INP'); reset(input);
    assign(output,'SO.OUT');rewrite(output);
    read(s);
    if check_is_number(s) then
         begin
        writeln(sum_number_string(s));
        writeln(max_number_string(s));
        print_largest_numbers_position(s);
         end 
    else write('SAI DIEU KIEN');
    close(input);close(output);
end .

*Câu 4 :

var s : string;
  function sum_number_string(n:string):longint;
        var result_sum, i, temporary_variable : longint;
         begin
        result_sum := 0;
        for i := 1 to length(n) do
             begin
            val(n[i],temporary_variable);
            inc(result_sum,temporary_variable);
             end ;
        exit(result_sum);
         end ;
  function check_sum_number(n:string):boolean;
         begin
        exit(sum_number_string(n)<>0);
         end ;
  
begin
    assign(input,'XAU.INP'); reset(input);
    assign(output,'XAU.OUT');rewrite(output);
    read(s);
    if check_sum_number(s) 
        then write(sum_number_string(s))
    else write('NHAP SAI! YEU CAU NHAP LAI:');
    close(input);close(output);
end .