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

Var
i: integer;
a: array [1..6] of real;
begin
for i:=1 to 6 do
read (a[i]);
for i:=1 to 6 do
writeln (a[i]);
end.