Tempo bom em que..

Todos eram crianças, quase todas..
Todos eram inocentes;
não conheciam problemas,
problemas do mundo, da vida, de si..
problemas de experimentarem coisas imundas;
coisas imundas que se encontram pela estrada da vida..
estrada da vida que levam para a morte, e da morte ....
Tempo bom que passou depressa, e nos deixou saudades,
saudades do tempo em que éramos felizes e não sabíamos,
não sabíamos porque não conhecíamos a vida,
nem as coisas da vida,
coisas da vida, problemas..
problemas; drogas, vícios, bebidas...
Tempo bom em que todos eram felizes,
tudo que precisam era de espaço e qualquer coisa,
somente para inventar, brincar, curtir,
mas o tempo bom se foi
agora, fica a saudade, e não podemos mais voltar a vive-lo....
resta as lembranças e experiencias, para passarmos para os que estão vindo agora..
para que também tenham Tempo Bom...
e que Tempo Bom nunca acabe,
como infelizmente acabou para alguns, tão cedo.....
ahh, mas em alguns que ainda vivem o tempo bom, rs rsrs
Tempo Bom em que Todos estavam na igreja,
Tempo Ruim agora que alguns perderam a felicidade buscando a tal felicidade..
hoje vivem na escuridão.. submerso nas travas, perdidos na estrada da vida
estrada da vida do problema....

Mas ainda, podemos dizer Tempo Bom...
porque todos estão vivos..
e têm a chance de retornar, claro, aqueles que de alguma forma saíram do caminho..
Tempo Bom se cada um permitir essa chance a si próprio,
Tempo Bom volta a ser bom de novo....

Bom galera, conforme prometido, segue os códigos dos dois exercícios da prova:

1ª Questão: não me lembro o enunciado de nenhuma das duas.

procedure TForm1.BitBtn1Click(Sender: TObject);
var mat : array [1..4,1..5] of integer;
    i, j : integer;
    raiz, soma : real;
begin
    soma := 0;
    mat[1,1] := strtoint (edit1.Text);
    mat[1,2] := strtoint (edit2.Text);
    mat[1,3] := strtoint (edit3.Text);
    mat[1,4] := strtoint (edit4.Text);
    mat[1,5] := strtoint (edit5.Text);
    mat[2,1] := strtoint (edit6.Text);
    mat[2,2] := strtoint (edit7.Text);
    mat[2,3] := strtoint (edit8.Text);
    mat[2,4] := strtoint (edit9.Text);
    mat[2,5] := strtoint (edit10.Text);
    mat[3,1] := strtoint (edit11.Text);
    mat[3,2] := strtoint (edit12.Text);
    mat[3,3] := strtoint (edit13.Text);
    mat[3,4] := strtoint (edit14.Text);
    mat[3,5] := strtoint (edit15.Text);
    mat[4,1] := strtoint (edit16.Text);
    mat[4,2] := strtoint (edit17.Text);
    mat[4,3] := strtoint (edit18.Text);
    mat[4,4] := strtoint (edit19.Text);
    mat[4,5] := strtoint (edit20.Text);
    for i := 1 to 4 do
      for j := 1 to 5 do
        begin
        if (i+j) mod 2 = 0   then
        soma := soma + mat[i,j];
        end;
        raiz := sqrt (soma);
        edit21.Text := formatfloat ('#,##0.00', raiz);
        edit22.Text := floattostr (soma);

end;

2ª Questão:

procedure TForm1.BitBtn1Click(Sender: TObject);
var vet : array of integer;
     i, n, soma : integer;
     media : real;
begin
    soma := 0;
    n := strtoint (edit1.Text) ;
    setlength (vet, n);
    for i := 1 to n do
        begin
        vet[i] := strtoint(inputbox ('Valor Vetor','Valor','  '));
        soma :=  soma + vet[i];
         end;
        media := soma / n;
        for i := 1 to n do
        begin
        listbox1.Items.Add (inttostr(vet[i]));
        end;
        label2.Caption := ('Media dos Valores Inseridos no Vetor: '+ formatfloat('#,##0.00',media));
        edit1.Clear;
end;

Boa sorte Galera..