Создайте в среде Delphi программу которая вычисляет периметр и площадь квадрата равная стороне а

Задание 1 во вложении.

Задание2.

const
  m = 20;{максимальное количество элементов}

var
  a: array[1..m] of real;
  i, n: integer;

begin
  Write('Введите количество элементов (от 1 до 20): ');
  Readln(n);
  Writeln('Вводите через пробел элементы массива');
  for i := 1 to n do
  begin
    Read(a[i]);
    a[i] := sqr(a[i])
  end;
  Writeln('Результирующий массив:');
  for i := 1 to n do Write(a[i]:0:4, ' ');
  Writeln
end.

Тестовое решение:

Введите количество элементов (от 1 до 20): 5
Вводите через пробел элементы массива
1.3 2.7 -4 4.23 0
Результирующий массив:
1.6900 7.2900 16.0000 17.8929 0.0000

1)var n,k: integer; begin   write('число:   ');   readln(n);   k: =0;   repeat     k: =k*10+n mod 10;     n: =n div 10;   until n=0;   writeln('новое число:   ',k); end. 2) var n,k,m: integer; begin  write('двоичное число:   ');   readln(n);   k: =1;   m: =0;   repeat    m: =m+k*(n mod 10);     n: =n div 10;     k: =k*2;   until n=0;   writeln('десятичное число:   ',m); end.