Написать программу(паскаль) и блок - схема. Даю 15 поинтов.

Данные думаю подставить сами сможете т.к даже не дал их

program p1;

const n=100;

var a:array [1..n] of integer;

var n1:integer;

   i: integer;

begin

randomize;

read(n1);

writeln ('Массив');

for i:=1 to n1 do

begin

 read(a[i]);

 write (a[i], ' ');

end;

writeln;

writeln('Четные элементы:');

for i:=1 to n1 do

if a[i] mod 2=0 then write(a[i],' ');

writeln;

end.