Подпрограмму к программе - Turbo Pascal

Формулировка задачи:

Написать подпрограмму, может использовать процедуру

Const n=10;
Var A : array [1..n] of integer;
    i, k : integer;
begin
//заполняем массив
For i:=1 to n do A[i]:=(-1)*(i*i-i*4+3);
//выводим массив
For i:=1 to n do Write(A[i]:4);
Writeln;
//поиск четных положительных чисел
k:=0;
For i:=1 to n do
    begin
    If ((A[i] mod 2)=0) and (A[i]>0) then inc(k);
    end;
Writeln('k=',k);
Readln;
end.

Решение задачи: «Подпрограмму к программе»

textual
                            Листинг программы 
                        

                            Const n=10;
Var A : array [1..n] of integer;
procedure init;
var i : Integer;
begin
//заполняем массив
For i:=1 to n do A[i]:=(-1)*(i*i-i*4+3);
end;
 
procedure out;
var i : Integer;
begin
//выводим массив
For i:=1 to n do Write(A[i]:4);
Writeln;
end;
 
function find : Integer;
var i,K : Integer;
begin
//поиск четных положительных чисел
k:=0;
For i:=1 to n do
begin
If not odd(A[i]) and (A[i]>0) then inc(k);
end;
find := k;
end;
 
begin
init;
out;
Writeln('k=', find);
Readln;
end.
                        