correction dctheo_prob2

voici la solution**************************************************
*************************************************************
program boum;
uses wincrt;

var
n,max:integer;

procedure saisi_n(var n:integer);
begin
repeat
writeln('n=');
readln(n);
until n in [2..9];
end;
procedure saisi_max(var m:integer);
begin
repeat
writeln('max=');
readln(max);
until max in [10..99];
end;
procedure affiche (var n,max:integer );
var
i:integer;
begin
for i:= 1to max do
begin
if (i div 10 = n) or (i mod 10 =n) or (i mod n =0) then
writeln('boum')
else
writeln(i);
end;
end;

begin

saisi_n(n);
saisi_max(max);
affiche(n,max);

end.
***********************************************

thinks trés gentil