Составьте программу которая осуществляет ввод в массив с клавиатуры 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.