program mas_enter;
uses crt;
var i,n:integer;
	a:array [1..100] of real;
begin
	clrscr;
    write('Введите размер массива N=');
    readln(n);
	writeln('Введите массив:');
{********** Ввод массива ****************************************************}
    for i:=1 to n do read(a[i]);
{****************************************************************************}
{********** Вывод массива ***************************************************}
    for i:=1 to n do write(a[i]:0:2,' ');
{****************************************************************************}
end.

    Source: geocities.com/tphelp/pas

               ( geocities.com/tphelp)