составьте программу которая осуществляет ввод в массив с клавиатуры 6 дробных чисел и выводит на экран элементы в столбик

vari: integer;a: array [1..6] of real;beginfor i:=1 to 6 doread (a[i]);for i:=1 to 6 dowriteln (a[i]);end.