Exercício matriz 6X6

{Crie um algoritmo que preencha uma matriz de 6X6 do tipo real. Calcule e  mostre:

 a) a soma dos elementos da 1a., 3a. e 5a. linha.
 b) o produto dos elementos da 3a. coluna.
 c) subtrair o resultado [produto - item b)] pela resultado da soma [item a)]      }

program matriz_6X6;

uses crt;

var
   matriz       : array [1..6,1..6] of real;
   soma,produto : real;
   i,j          : integer;

begin
  clrscr;
  writeln ('Construindo uma matriz 6X6');
  writeln;
  soma:=0;
  produto:=1;

  {****** CADASTRAMENTO DOS NUMEROS ******}

  writeln ('Cadastramento dos numeros: ');
  writeln;
  for i:= 1 to 6 do
    begin
      writeln('Numeros da ',i,'a. linha: ');
      for j:= 1 to 6 do
        begin
          write (j,'a. coluna: ');
          readln (matriz[i,j]);

          {**** soma itens das linhas 1, 3 e 5 *****}

          if i=1 then
           soma:= soma + matriz[i,j]
          else
            if i= 3 then
             soma:= soma + matriz[i,j]
            else
              if i= 5 then
               soma:= soma + matriz[i,j];

          {****** calcula o produto dos itens da 3a. coluna ******}
          if (j=3) then
           produto:= produto * matriz[i,j];


        end;
    end;

  {****** LISTAGEM DOS NUMEROS CADASTRADOS ******}

  clrscr;
  writeln ('Listagem dos numeros cadastrados: ');
  writeln;
  for i:= 1 to 6 do
    begin
      writeln('Numeros da ',i,'a. linha: ');
      for j:= 1 to 6 do
        write (j,'o.: ',matriz[i,j]:2:1,' ');
      writeln;
    end;
  writeln;
  writeln ('A soma dos elementos da 3a. coluna e: ',soma:20:1);
  writeln ('O produto dos elementos da 4a. e 5a. linha e: ',produto:20:1);
  writeln;
  writeln ('Tecle <ENTER> para sair');
  readln;
end.