Мой 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.