Salut à tous !

j'ai un énoncé qui me demande d'écrire un programme Pascal permettant de saisir 2 entiers X et Y (0<X<=9 et 0<Y<=9) et d'afficher la table de multiplication selon le modele suivant :

Exemple : pour X=4 et Y=5 le programme affiche:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
 
                                  1    2    3    4    5
                             1    1    2    3    4    5
                             2    2    4    6    8   10
                             3    3    6    9   12   15
J'ai essayé de le faire :
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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
program traitement;
uses wincrt;
var
    x,y:integer;
     procedure saisir1(var x:integer);
     begin
         repeat
              writeln('donner un entier x:');
         until x in [0..9];
     end;
 
     procedure saisir2(var y:integer);
     begin
         repeat
              writeln ('donner un entier y:');
         until y in [0..9];
     end;
 
     procedure multiplier(var i:integer ; var j:integer);
        var
           x,y:integer;
        begin
                for i:=1 to x do
 
                    begin
                        write(i:5);
                        write(' ');
 
                        for j:=1 to y do
                            begin
                                write(i * j:4);
 
                            end;
                        write('  ');
                    end;
 
        end;
 
 
begin
 
     saisir1(x);
     saisir2(y);
     multiplier(i,j);
 
end.
mais mon problème c'est que je n'ai pas pu faire le décalage entre la 1ere ligne horizontale et la première colonne verticale, c.a.d j'ai comme affichage :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
                             1    1    2    3    4    5
                             2    2    4    6    8   10
                             3    3    6    9   12   15
                             4    4    8   12   16   20
Je voudrais que quelqu'un m'aide, merci infiniment