solution de l'exercice 3

program positif;
uses wincrt;
var
a,b: integer;
ch:string;

function symetrique ( ch:string):string;
var
i,n,e:integer;
begin
n:=0;
for i:= 10 to 99 do
begin
str(i,ch);
val (ch[1],a,e);
val (ch[2],b,e);

if (a*b)mod(a+b)= 0 then
begin
n:=n+1;
writeln(i);
end;
end;
writeln('le nombre des entiers est : ',n);
end;
begin
symetrique(ch);
end.