организовать ввод чисел в массив 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.

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