const
vmax =2;
cmax=10 ;
 
type
coordonee=array[1..cmax,1..vmax] of integer;
 
var
tab:coordonee;
i,j: integer;
prodscalaire:real;
multiplication: real;
 
begin
 
for i:=1 to cmax do
 begin
    for j:=1 to vmax do
        Begin
         writeln('entrez les coordonnees du vecteur');
         readln(tab[i,j]);
         write(tab[i,j]);
        end;
   writeLn  ;
 end;
 
prodscalaire :=0;
 
for i:=1 to cmax do
 begin
    multiplication:=1;
    for j:=1 to vmax do
     begin
      multiplication:=multiplication*tab[i,j];
      writeln('multiplication vaut', multiplication);
     end;

   prodscalaire:=prodscalaire +multiplication ;
 end;

writeln('le produit scalaire est : ',prodscalaire);
readln;
 
end.