составьте программу ввода с клавиатуры элементов массива а [1..10] и вывода элементов массива на экран в столбец.

var
 i: integer;
a: array [1..10] of real;
begin
for i:=1 to 10 do
begin
writeln ('введи элемент массива');
read (a[i]);
end;
for i:=1 to 10 do
writeln ((a[i]));
end.