Дано: a, n
найти: k

k=a^n (а в степени n)

k=a*a* *a= n

обязательно использовать цикл while.

Видеосистема состоит из видеокарты(видеоадаптера) и выводящего устройства(монитор, проэктор и тп)
Видеокарта состоит в общих чертах из видеопамяти и видеоконтроллера и графического процессора

Графический процессор(ГПУ, GPU) вычисляет данные изображения которые надо вывести. Сюда же входят разные шейдеры, 3Д графика и тд. Штука это довольно мощная и снимает нагрузку с ЦПУ

Видеопамять - устройство которое хранит результат работы GPU, а так же возможно промежуточные результаты

Видеоконтроллер - отвечает за преобразование сигнала, посылку данных из видеопамяти устройству вывода, дает команду на отрисовку и тп

С выводящим устройством думаю и так все ясно

Program test;
var  a: array of integer;  b: array of integer;  c: array of integer;  aa, bb, cc: integer;
begin  writeln('Введите размер массива a');  readln(aa);  writeln('Введите размер массива b');  readln(bb);  a := new integer[aa];  b := new integer[bb];  c := new integer[aa + bb];  cc := 0;  aa := 0;  bb := 0;  writeln('Заполнение массива a');  while(aa < Length(a)) do   begin    readln(a[aa]);    aa := aa + 1;  end;  writeln('Заполнение массива b');  while(bb < Length(b)) do   begin    readln(b[bb]);    bb := bb + 1;  end;  while(cc < Length(c)) do   begin    if(cc < Length(a)) then begin      c[cc] := a[cc]    end else begin      c[cc] := b[cc - Length(a)];    end;    cc := cc + 1;  end;  writeln('Полученный массив');  cc:=0;  while(cc < Length(c)) do   begin    writeln(c[cc]);    cc:=cc+1;  end;end.