table de multiplication

ÉNONCÉ
Ecrire un programme qui permet d'afficher la table de multiplication des nombres de 1 à 10

PASCAL
méthode1:
program multip10;
uses wincrt;
var
i,j:integer;
begin
writeln('I| 1 2 3 4 5 6 7 8 9 10 ');
writeln('-----------------------------------');
for i:=1 to 10 do begin write(i,'| ');
for j:=1 to 10 do write(i*j,' '); writeln; end;
writeln('-----------------------------------');
end.

méthode2:
program multip10;
uses wincrt;
var
i,j:integer;
ch1,ch:string;
begin

writeln('I| 1 2 3 4 5 6 7 8 9 10 ');
writeln('-----------------------------------');
for i:=1 to 10 do begin write(i,'| '); ch:='';
for j:=1 to 10 do begin str(i*j,ch1);
ch:=concat(ch,' ',ch1); end;
writeln(ch);
end;
writeln('-----------------------------------');
end.