. составте программу ввода с клавиатуры и вывода на экран массива из 7 вещественных чисел. !

помогите пожалуйста. составте программу ввода с клавиатуры и вывода на экран массива из 7 вещественных чисел.спасибо!

  • Program pr;
    uses crt;

    Var a:array[1..7] of real;
        i:integer;
       
    Begin
    Writeln('Введите массив');
    for i:=1 to 7 do
    readln(a[i]);

    for i:=1 to 7 do
    Write(a[i],'|');

    readln;
    end.

    ============================================

    Program pr;
    uses crt;

    Var a:array[1..10] of integer;
        i:integer;
       
    Begin
    Writeln('Введите массив');
    for i:=1 to 10 do
    readln(a[i]);

    for i:=1 to 7 do
    Begin
    if a[i] mod 2<>0
    then
    Write(a[i],'|');
    end;

    readln;
    end.

для bottom