Mk14 — первый компьютер, созданный компанией sinclair research ltd. базой для компьютера
послужил 8-битный процессор. кроме процессора, компьютер располагал 20-клавишной клавиатурой,
8-знаковым сегментным дисплеем, 512 байт пзу, 256 байт озу и несколькими портами ввода-вывода.
mk14 был без корпуса и представлял собой печатную плату с клавиатурой и дисплеем. внешний блок
питания необходимо было подобрать пользователю самостоятельно.
за все время продаж в великобритании удалось продать двадцать тысяч mk14.
сколько книг можно было разместить в оперативной памяти всех проданных компьютеров, если в книге
320 страниц, а на странице помещается 40 строк по 50 символов в каждой строке. для хранения одного
символа требуется 16 битов.

я бы написал по другому

program vozvedenie_v_stepen;

var a,b: integer;

begin

writeln ('введите число, которое будем возводить в степень');

readln (a);

writeln ('введите число, обозначающее степень, в которую будем возводить');

readln (b);

writeln (a,' в степени ',b,' = ',exp(b*ln(;  

end. 

извиняюсь за неправильный ответ. не увидел, что вам нужно с циклом. тогда лучше

program vozvedenie_v_stepen; var a,b,c,d: integer; beginwriteln ( 'введите число, которое будем возводить в степень' ); readln (a); c: =a; writeln ( 'введите число, обозначающее степень, в которую будем возводить'); readln (b); for d: = 2 to b doa: =a*c; if b=0 thenwriteln(1)elsewriteln (c,' в степени ',b,' = ',a); end. 

1. введите n.

2. цикл for от 1 до n будем вводить 'элементы массива x[i]/

3. в цыкле от 1 до n бедем выводить на экран массив writeln(x[i]) и считаем сумму. если в программе выполнять, то это будет выглядеть так

write('введите n'); readln(n);

for i: =1 to n do begin write('введите ',i,' элемент массива');

                                                              readln (x[i]);

                                            end;

sum: =0;

for i: =1 t0 n do begin

                                                    write(' ',x[i]);

                                                    sum: =sum+x[i];

                                            end;

write('а сумма всех элементов = ',sum);