отдам все!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!! ​

1) 1 задача, код программы:

var A:array[1..10] of integer;

i:integer;

begin

 writeln('Введите массив:');

 for i:= 1 to 10 do

   readln(A[i]);

 writeln('Полученный массив:');

 for i:= 1 to 10 do

   write(A[i], ' ');

end.

2) 2 задача, код программы:

var A:array[1..10] of real;

i:integer;

sum: real;

begin

 writeln('Введите массив:');

 for i:= 1 to 10 do

   readln(A[i]);

 writeln('Полученный массив:');

 for i:= 1 to 10 do

   write(A[i], ' ');

 sum := 0;

 for i:= 1 to 10 do

   sum := sum + A[i];

 writeln();

 writeln('Сумма чисел: ', sum);

end.