Question

Определите назначение программы на Паскале :
program test1;
const N=1;

var A: array[1..N]of integer;
I: integer; S: real;
begin
for I:=1 to N do read(A[i]);
S:=0;
for I:=1 to N do
if A[I] mod 2=0 then S:=S+1;
S:=S*100/N;
writeln (S);
end.