составить 2 блок схемы с предусловием с постусловием для решение задачи вычислить произведения чисел от 1 до5

// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!

begin
  Writeln(' x   x^2    x^3');
  for var i:=1 to 50 do Writeln(i:3,i*i:5,i*i*i:8);
end.

Результат
 x   x^2    x^3
  1    1       1
  2    4       8
  3    9      27
  4   16      64
  5   25     125
  6   36     216
  7   49     343
  8   64     512
  9   81     729
 10  100    1000
 11  121    1331
 12  144    1728
 13  169    2197
 14  196    2744
 15  225    3375
 16  256    4096
 17  289    4913
 18  324    5832
 19  361    6859
 20  400    8000
 21  441    9261
 22  484   10648
 23  529   12167
 24  576   13824
 25  625   15625
 26  676   17576
 27  729   19683
 28  784   21952
 29  841   24389
 30  900   27000
 31  961   29791
 32 1024   32768
 33 1089   35937
 34 1156   39304
 35 1225   42875
 36 1296   46656
 37 1369   50653
 38 1444   54872
 39 1521   59319
 40 1600   64000
 41 1681   68921
 42 1764   74088
 43 1849   79507
 44 1936   85184
 45 2025   91125
 46 2116   97336
 47 2209  103823
 48 2304  110592
 49 2401  117649
 50 2500  125000

program jnrvjf;
var
A: array[0..20] of integer;
x, b, i, d, c: integer;
begin
    writeln('Введите число элементов в массиве');
    readln(d);
    writeln('Введите число');;
    readln(x);
    b:=0;
    for i:= 1 to d do
        A[i] := random (20);
    writeln(A);
    for i:= 1 to d do
    begin
        c:= A[i];
        if (c > b) then
            b:=A[i]
    end;
    writeln('Максимальное значение в множестве: ', b);
    for i:=0 to d do
    begin
        b:=A[i];
        if b = x then
            writeln ('Номера элементов, совпадающих с x: ', i)// Это если вести человеческую нумерацию, где первый элемент имеет номер 1.
    end;
end.