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

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