Нужно сделать эту страничку в Word 2016,прикрепите файл и я вам отправлю максимальное количество балов!

Procedure ABCD(Const A:real; Var B,C,D:real);
Begin
B:=A*A;
C:=B*A;
D:=C*A;
End;
Var
   A,B,C,D:real;
Begin
Write('A = ');ReadLn(A);
ABCD(A,B,C,D);
WriteLn(A,' ',B,' ',C,' ',D);
End.

Пример вычислений для 10-ти разных чисел:

A = 1
1 1 1 1

A = 2
2 4 8 16

A = 3
3 9 27 81

A = -10
-10 100 -1000 10000

A = 3.141592
3.141592 9.869600294464 31.0062573282858 97.4090099724839

A = 111
111 12321 1367631 151807041

A = 6.66
6.66 44.3556 295.408296 1967.41925136

A = -2.718121812
-2.718121812 7.38818618487016 -20.0819900202127 54.5852951023063

A = 789456123
789456123 6.23240970142191E+17 4.92021399983213E+26 3.8842930686378E+35

A = 123456789
123456789 1.52415787501905E+16 1.88167637178915E+24 2.32305722798259E+32

скрин

Объяснение:

7.

пока условие i <= 6 истинное (да) цикл выполняет действия:

S = S + i

i = i + 1

когда условие i <= 6 становится ложным (нет) цикл прекращается

S = 0     i = 0

i <= 6 (0 <= 6, да)

S = 0 + 0 = 0

i = 0 + 1 = 1

S = 0     i = 1

i <= 6 (1 <= 6, да)

S = 0 + 1 = 1

i = 1 + 1 = 2

S = 1     i = 2

i <= 6 (2 <= 6, да)

S = 1 + 2 = 3

i = 2 + 1 = 3

S = 3     i = 3

i <= 6 (3 <= 6, да)

S = 3 + 3 = 6

i = 3 + 1 = 4

S = 6     i = 4

i <= 6 (4 <= 6, да)

S = 6 + 4 = 10

i = 4 + 1 = 5

S = 10     i = 5

i <= 6 (5 <= 6, да)

S = 10 + 5 = 15

i = 5 + 1 = 6

S = 15     i = 6

i <= 6 (6 <= 6, да)

S = 15 + 6 = 21

i = 6 + 1 = 7

S = 21     i = 7

i <= 6 (7 <= 6, нет) - цикл прекращается

8.

цикл выполняет действия:

P = P * i

i = i + 2 (шаг равен 2 по условию)

пока условие i <= n истинное (да)

когда условие i <= n становится ложным (нет) цикл прекращается

n = 5     i = 1     P = 1

P = 1 * 1 = 1

i = 1 + 2 = 3

i <= n (3 <= 5 да)

n = 5     i = 3     P = 1

P = 1 * 3 = 3

i = 3 + 2 = 5

i <= n (5 <= 5 да)

n = 5     i = 5     P = 3

P = 3 * 5 = 15

i = 5 + 2 = 7

i <= n (7 <= 5 нет) - цикл прекращается

n = 5     i = 7     P = 15