Вот пример: program prim_4; var a,b: real; begin write('введите число'); readln(a); в: =a*а; {получаем а во 2} b: =в*в; {получаем а в 4} в: =a*b; {получаем а в 5} b: =в*в; {получаем а в 10} b: =в*в; {получаем а в 20} writeln('a в 20 степени=',в: 0: 2); {вместо указания ширины поля для вывода числа лучше ставить 0, тогда компилятор отведет столько позиций под целую часть, сколько получилось в ответе, а для дробной части я посчитала возможным оставить 2 позиции} readln end. в фигурные скобки {} в программе можно заключать комментарий, компилятор пропускает текст, заключенный в такие скобки, а комментарий позволяет вспомнить о чем программа если вы позднее возвращаетесь к ее тексту. 1.дано вещественное число а. не пользуясь никакими арифметическими операциями, кроме умножения, получить: а^9 за четыре операции;
Var a,b:real;
Begin
Write('введите число');
Readln(a);
b:=a*a; {получаем А во 2}
b:=b*b; {получаем А в 4}
b:=b*b; {получаем А в 8}
b:=a*b; {получаем А в 9}
Writeln('A в 9 степени=',b:0:2);
End.