-->
-->
Soit x et y deux entiers :
1 ≤ x ≤ y ≤ 9.
Ecrire un programme Pascal qui affiche la table de
multiplication de x et y.
program multiplication;
uses wincrt;
var x,y,i,j:integer;
begin
repeat
writeln('saisir un entier naturel non nul x inf ou egale
à 9');
readln(x);
writeln('saisir un entier nat y sup ou egale à x');
readln(y);
clrscr;
until (x>=1) and (x<=y);
writeln('voici le table de multiplication de x et y');
writeln;
write('*');
for i:=1 to y do
write(i:3);
writeln;
for i:=1 to x do
begin
write(i);
for j:= 1 to y do
write(j*i:3);
writeln;
end;
end.