Problème turbo pascal...multiples de 2

[morice]

Voilà, j'ai un problème avec une de mes fonctions sous pascal...
Cette fonction est censée prendre un entier, le convertir en chaine puis vérifier si le dernier caractère fait partie de la liste suivante:
:fleche: 0
:fleche: 2
:fleche: 4
:fleche: 6
:fleche: 8

En somme, cette fonction me permet de déterminer si l'entier est un multiple de deux ou non...

function multipl2(a: integer): integer;
var b: string;
    c: integer;
  begin
    str(a,b);
    c:=length(b);
    delete(b,0,c);
    writeln(b);
    readln;
    if (b='0') or (b='2') or (b='4') or (b='6') or (b='8')
      then multipl2:=1
      else multipl2:=0;
  end;


Le problème est que cette fonction me retourne automatiquement 0...etje ne vois pas pourquoi...

EDIT: vous allez me demander pourquoi je n'utilise pas les modulo...tout simplement parce que sous Pascal, ça n'existe pas :laugh: :laugh: :laugh:

 

[morice]

Laissez tomber, j'ai trouvé la solution, et le modulo existe sous pascal:

function multiple(a: integer): boolean;
begin
  multiple := (a mod 2 = 0);
end;