Deviseur

program Deviseur;
uses wincrt;
type
tab1=array [1..100] of integer;
var
T1,T2:tab1;
n,m,i:integer;
procedure remp_tab(var T:tab1;l:integer);
begin
for i:=1 to l do
begin
writeln('enter le chiffre N° ',i);
readln(t[i]);
end;
end;
procedure devise(Ta:tab1;Tb:tab1;l,k:integer);
var
j:integer;
begin
for i:=1 to l do
begin
for j:=1 to k do
begin
if (((Ta[i])mod(Tb[j])=0)) then writeln(ta[i],'est divisible par ',Tb[j]);
end;
end;
end;
begin
repeat
writeln('entrer n ');
readln(n);
writeln('entrer m');
readln(m);
until ((n>0) and (m>0));
writeln('remplir T1');
remp_tab(T1,n);
writeln('remplir T2');
remp_tab(T2,m);
devise(T1,T2,n,m);
writeln('Press <Enter> To Quit');
  readln();
end.