Divisibilité par 3

0)   Déf Fn Div_3 (n : entier) : chaine
Résultat = Div_3                                             
Div_3 ← msg
 Si (S mod 3 = 0) alors
      msg ← “ est divisible par 3 “
  Sinon
      msg ← “ n’est pas divisible par 3 “
FinSi
[S ← 0]
Pour i de 1 à long (ch) faire
      Valeur (ch[i], nb, e)
      S ← S + nb
FinPour
Convch (n, ch)

0)   Déf Fn Div_3 (n : entier) : chaine
1)   Convch (n, ch)
2)   S ← 0
Pour i de 1 à long (ch) faire
      Valeur (ch[i], nb, e)
      S ← S + nb
FinPour
3)   Si (S mod 3 = 0) alors
          msg ← “ est divisible par 3 “
        Sinon
          msg ← “ n’est pas divisible par 3 “
                      FinSi
4)   Div_3 ← msg
5)   Fin Div_3

program Divisible_3;
uses wincrt;
var s:string;

procedure saisie (var ch:string);
var
  num:longint;
  e:integer;
begin
repeat
      write('donner un entier: ');
      readln(ch);
      val(ch, num, e);
until (e=0);
end;

function Div_3 (ch:string) : string;
var
  e, nb, somme, i : integer;
begin
    somme:=0;
    for i:=1 to length(ch) do
    begin
          val(ch[i], nb, e);
          somme:=somme + nb;
    end;
    if somme mod 3 = 0 then Div_3:=' est divisible par 3'
    else Div_3:=' n''est pas divisible par 3.';
end;

{programme principale}
begin
    saisie(s);
    write(s, Div_3(s));
end.