Function Pgcd2(X: Integer; Y: Integer) return Integer is A: Integer:=X

function Pgcd2(X: Integer ; Y: Integer) return Integer is

A: Integer:=X;

B: Integer:=Y;

P: Integer;

begin

Put(A);

Put(B);

if A<0 or B<0 then

Put ("impossible: X et/ou Y < O"); -- Question : Je n'arrive pas à faire apparaitre ce texte en bas dans Afficher_Pgcd2. J'ai bien essaye en ajoutant une variable C mais comme il s'agit d'un texte sans valeur, il refuse de le compiler. J'ai eu le même probleme la semaine derniere avec Fact2. Pourriez vous me fournir une solution ? Ou alors c'est impossible ?
elsif A=0 then P:=B;

elsif B=0 then P:=A;

elsif B<=A then

P:= Pgcd2(A-B,B);

else

P:=Pgcd2(A , B-A);

end if;

return P;

end Pgcd2;