Source de cet algorithme en Dev-Pascal

Bonjour,
en Dev-Pas (compilateur pascal) je veux écrire un programme qui :

Program exemple;
var a,b,c:integer;
tableeau-b,tableau-c:array[1..100] of integer;
begin
read(a);

La première cellule de tableau-b tableau-b[1] est affectée à la valeur 0 --> tableau-b[1] :=0;
La seconde à la valeur b+1=0+1=1
La troisième donc 2 ... et la dernière (centième) serait donc 99
le nombre entier "a" déjà lu va être multiplié par toutes les cellules de tableau-b pour donner tableau-c
Donc on aura:
tableau-c[1]=tableau-c[1]*a;
.........
.........
.........
tableau-c[100]=tableau-c[100]*a;

puis je veux afficher le résultat de tableau-c : write('résultat est',...............(Afficher toutes les cases du tableau-c)...............................................);

Merci de m'aider