Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести сообщение о

uses crt;
const n=10;
var a,b: array[1..n] of byte; i,k: byte;
begin
randomize;
k:=0;
clrscr;
writeln('исходная последовательность чисел: ');
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i]:3);
if a[i] mod 2 = 0 then
begin
inc(k);
b[k]:=a[i];
end;
end;
writeln;
if k>0 then
begin
writeln('чётные числа последовательности: ');
for i:=1 to k do
write(b[i]:3);
end
else writeln('в последовательности отсутствуют чётные числа');
end.

uses crt;
const n=10;
var a,b: array[1..n] of byte; i,k,f: byte;
begin
randomize;
k:=1;
f:=0;
clrscr;
writeln('исходная последовательность чисел: ');
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i]:3);
if (a[i] mod 2=0) and (a[i]>0) then
begin
f:=1;
b[k]:=a[i];
inc(k);
end;
end;
k:=k-1;
writeln;
if f=0 then writeln('четных чисел нет') else begin
writeln('чётные числа последовательности: ');
for i:=1 to k do
write(b[i]:3);
end;
end.