Programme en Pascal

Program PER ;
uses CRT ;
Var n:integer{n:nbre of persons }
begin
{All procedure here}
Procedure Stargivingnames ; {To make the work simple i advice you to use procedure lije this }
Var Tab:arry[1..n])of string ;
a:integer; {nbre names}
begin
Repeat
writeln('Start giving names')
Until a:=n;
.............
.............
...........
Do the same with the adress part .
then put this prosedure to affectiate the name with his adress :
procedure Affe(Tab:arry[1..n]of string ,Tab2[1..n]of string);
Tab3:arry[1..n]of string; {Table will contane the name and the adress }
begin
(Use here a For..To..Do statelentnt to do this job )
.......
You can olso make type to not get confuised with differnt Arry .
Hope you got that
Sea you .

desole mon frr j ne comprend l`anglais

Pascal est en anglais comment tu ne peut pas comprendre le programme .

enfet voila mon progamme:
Ecrire un algorithme qui le nom,le prenom,,la boite postale ,la ville ,et la zone de domiciliation a utilisateur et qui lui affiche son adresse
complet obtenue a base de ces element.
@+

enfet voila mon progamme:
Ecrire un algorithme qui demande le nom,le prenom,,la boite postale ,la ville ,et la zone de domiciliation a utilisateur et qui lui affiche son adresse
complet obtenue a base de ces element.
@+