Мой PascalABC:
const n = 7;
var A : array [1..n] of real;
begin
for var i := 1 to n do
A[i] := -5*n + 10*n*Random;
WriteLn (' Сформированный массив рациональных чисел:' );
for var i := 1 to n do
Write ( A[i]:8:3);
WriteLn;
ReadLn;
end.

Program P1;
uses crt;
const n=7;
type mas=array [1..n] of real;
var i: integer;
m: mas;
begin
clrscr;
writeln ('Введите с клавиатуры элементы массива (только числа). После ввода каждого из чисел нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.');
for i:=1 to n do begin
write ('Введите ', i, '-й элемент массива: ');
readln (m[i]);
end;
write ('Вы ввели массив:');
for i:=1 to n do write (' ', m[i] :0:2);
writeln (' ');
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.