задачи в Паскале! Используя один цикл, вывести все целые степени числа А от 1 до N.

[Jenee]

Задача №1 Дано вещественное число А и целое число N(>0). Используя один цикл, вывести все целые степени числа А от 1 до N.
Задача №2 Создать целочисленный массив А размером N(<10) и заполнить его с клавиатуры. Вывести на экран введенный массив и результат суммы первого и последнего элемента массива.

[Nikol248]

Задача №1

var
  i, N: integer;
  A, P: real;

begin
  write('A = ');
  readln(A);
  write('N = ');
  readln(N);
  writeln;
  P := 1; { <== начальное значение степени числа A }
  for i := 1 to N do
  begin
    P := P * A; { <== предыдущее значение умножаем на A }
    writeln(' ', A, ' в степени ', i, ': ', P)
  end;
  readln
end.

[newerow1989]

Задача №2

const n=8;
var a:array[1..n] of integer;
    i:integer;
begin
   For i:=1 to n do
   begin
      Write('a[',i,'] = ');
      Readln(a[i]);
   end;
   For i:=1 to n do
      Write(a[i]:2,'  ');
   Writeln;
   Writeln(a[1]+a[n]);
   Readln;
end.

[Jenee]

Спасибо!!!

[newerow1989]