Je veux faire un programme qui dresse la table de multiplication des 12 premiers naturels non nuls par un entier naturel n compris entre 1 et 9
L'affichage est de la forme :
1 * 5=5
2 * 5= 10
3 * 5=15
etc

Mon travail :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program multiplication;
uses wincrt;
Var
  m,i,n:integer;
begin
  for i of 1 to 9 do
    begin
      writeln('donner la valeur n');
      readln(n);
      m:=n*i;
      writeln('le resultat de la multiplication est:',m)
    end;
  for n of 1 to 12 do
    begin
      m:=n*i;
    end.