Помогите пожалуйста. Составте программу ввода с клавиатуры и вывода на экран…

Program pr; uses crt; Var a: array[1… 7] of real; i: integer; BeginWriteln ('Введите массив'); for i: =1 to 7 doreadln (a[i]); for i: =1 to 7 doWrite (a[i],'|'); readln; end.=Program pr; uses crt; Var a: array[1… 10] of integer; i: integer; BeginWriteln ('Введите массив'); for i: =1 to 10 doreadln (a[i]); for i: =1 to 7 doBeginif a[i] mod 2<>0thenWrite (a[i],'|'); end; readln; end.