type
    Vec = array [0 .. 2] of Real;

const
    Arr: Vec = (12, 134, 1);

var
    I: Byte;
    t: Text;

begin
    assign(t, 'out.pas');
    rewrite(t);
    Writeln('Одномерный массив: ');
    Writeln(t, 'Одномерный массив: ');
    for I := 0 to High(Arr) do
    begin
        Write(Arr[I]:5:2);
        Write(t, Arr[I]:5:2);
        if (I <> High(Arr)) then
        begin
            Write(', ');
            Write(t, ', ');
        end;
    end;
    Close(t);

end.