Exercice 5-3

program multiplication_signe;
var
a, b: integer;
t1, t2: boolean;

begin
writeln(' http://www.Software-DS.com');
writeln;
writeln('a=');
readln(a);
writeln('b=');
readln(b);
t1 := a >= 0; { true si + et false si - }
t2 := b >= 0; { true si + et false si - }

if t1 = t2 then (* true=(+) false=(-) *)
writeln('++++++++')
else
writeln('---------');
writeln(' http://www.Software-DS.com');

(* ©2001 All Rights Reserved to http://www.Software-DS.com didier@Software-DS.com 26/09/01 *)
end.