организовать ввод чисел в массив E состоящий из 7 элементов ввод с клавиатуры

можете дорешать пожалуйста?сформировать новый массив К состоящий из элементов которые равны квадратам элементов массива Евывести элементы массива Енайти и вывести номер минимального элемента массива Кпосчитать и вывести количество нечетных элементов массива Е

const n=7;var e,k:array [1..n] of integer;i,a,b,m:integer;beginfor i:= 1 to n dobeginread(e[i]);k[i]:=e[i]*e[i];if e[i] mod 2 <> 0 then a:=a+1end;write ('Массив Е: ');for i:= 1 to n do write(e[i],' ');writeln;m:=k[1];b:=1;for i:= 2 to n doif k[i] < m thenbeginm:=k[i];b:=iend;writeln ('Номер минимального элемента массива К: ',b);writeln ('Количество нечётных элементов массива Е: ',a)end.

а блок схему можете к этой программе?

var e:array [1..7] of integer;

i:integer;

begin

for i:= 1 to 7 do read(e[i])

end.

var E = [];

for (let сч = 0; сч < 7; сч++)

 E.push(parseInt(prompt()));