Мне нужна ваша Задания за. 5 и 8

Уж незнаю что подойдет сама выберешь:

1.Голову-то можно отрубить, да языкам не запретишь говорить

2.Лишнее слово досаду наносит и до стыда доводит

3. Мелет с утра до вечера, а послушать нечего

4.Какова голова, такова и речь

5.Не давай волю языку во хмелею, в беседе и в гневе

6.Не то мудрено, что переговорено, а то, что недоговорено

7.От одного слова-да на век ссора

8.По речи узнают человека

9.Слово-серебро, молчание-золото

10.Слово-не стрела, а разит

11.Умей сказать, умей и смолчать

12.Хлеб-соль кушай, а умные речи слушай

13.Умные речи и в потемках слышно

14.Язык и то поведает, чего и голова не ведает

15.Говорить правду-терять дружбу

16. Кто правду хранит, того бог наградит

17.Ложь в правду радилась,  да о правду и разбилась

18.Без правды жить легче, да помирать тяжело

19.Худого слова и сладким словом не запьешь

20.Петь хорошо вместе, а говорить порозень

Надеюсь

Можно, например, так:
 11 10  4
  5  9  6
  8  3  7

Всего есть 72 решения данной задачи.

uses math;

var a,b,c,d,e,f,g,h,i: integer;
var matrix: array [1..9] of integer;
var counter: integer;

procedure check_matrix();
label repeated;
var i:integer;
var storage: array [1..9] of integer;
begin
        for i := 1 to 9 do begin
                storage[i] := 0;
        end;

        for i := 1 to 9 do begin
                if storage[matrix[i] - 2] <> 0 then begin
                        goto repeated;
                end;
                storage[matrix[i] - 2] := 1;
        end;

        if (matrix[2] * matrix[3] = matrix[4] * matrix[7]) and (matrix[4] * matrix[6] = matrix[2] * matrix[8]) and (matrix[7] * matrix[8] = matrix[3] * matrix[6]) then begin
                writeln('', matrix[1]:3, '', matrix[2]:3, '', matrix[3]:3);
                writeln('', matrix[4]:3, '', matrix[5]:3, '', matrix[6]:3);
                writeln('', matrix[7]:3, '', matrix[8]:3, '', matrix[9]:3);
                writeln();
                counter := counter + 1;
        end;

        repeated:;
end;

begin

counter := 0;

for a:=1 to 9 do begin
matrix[1] := a + 2;
for b:=1 to 9 do begin
matrix[2] := b + 2;
for c:=1 to 9 do begin
matrix[3] := c + 2;
for d:=1 to 9 do begin
matrix[4] := d + 2;
for e:=1 to 9 do begin
matrix[5] := e + 2;
for f:=1 to 9 do begin
matrix[6] := f + 2;
for g:=1 to 9 do begin
matrix[7] := g + 2;
for h:=1 to 9 do begin
matrix[8] := h + 2;
for i:=1 to 9 do begin
matrix[9] := i + 2;

check_matrix();

end; end; end; end; end; end; end; end; end;

writeln('total: ', counter);

end.