Cpascal #5

Program CyberPascal; uses crt;

const n=5; {Кол-во чисел}

var x:array [1..n] of real;
    i,j:byte;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
for i:=1 to n do
    Begin
    Write(' Введите ',i,' число: '); Readln(X[i]); {Вводим...}
    end;

Write('--------------------------------------------------------------------------------');
Writeln(' Результат:');
for i:=n downto 1 do Write(X[i]:7:2); {Выводим...}
Writeln;
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.