program zaznaczanie_licz_parzystych_w_liscie_z_dod_tablica;
type tab=array[1..10]of integer;
     lst = record
                elementy: tab;
                ile: integer
             end;
var
    i: integer;
    x: lst;
 
    y: array [1..10] of boolean;
 
begin
    writeln('poczatek');
    read(x.ile); writeln(x.ile);
    readln;
    for i:= 1 to x.ile do
    	begin
    	read(x.elementy[i]);
    	if (x.elementy[i] mod 2 = 0) then y[i] := true
    	(*zaznacz liczby parzyste wypełniajac pole label dla liczb parzystych wartością "true"*)
    	else y[i] := false;
    	write(x.elementy[i], '  ');
    	end;
    	writeln;
    for i:= 1 to x.ile do 
    	if y[i] then write(x.elementy[i], '  ')
	(*wypisz liczby parzyste posługując się zaznaczeniami*)
 
 
 
 
end.

cHJvZ3JhbSB6YXpuYWN6YW5pZV9saWN6X3Bhcnp5c3R5Y2hfd19saXNjaWVfel9kb2RfdGFibGljYTsKdHlwZSB0YWI9YXJyYXlbMS4uMTBdb2YgaW50ZWdlcjsKICAgICBsc3QgPSByZWNvcmQKICAgICAgICAgICAgICAgIGVsZW1lbnR5OiB0YWI7CiAgICAgICAgICAgICAgICBpbGU6IGludGVnZXIKICAgICAgICAgICAgIGVuZDsKdmFyCiAgICBpOiBpbnRlZ2VyOwogICAgeDogbHN0OwoKICAgIHk6IGFycmF5IFsxLi4xMF0gb2YgYm9vbGVhbjsKICAgIApiZWdpbgogICAgd3JpdGVsbigncG9jemF0ZWsnKTsKICAgIHJlYWQoeC5pbGUpOyB3cml0ZWxuKHguaWxlKTsKICAgIHJlYWRsbjsKICAgIGZvciBpOj0gMSB0byB4LmlsZSBkbwogICAgCWJlZ2luCiAgICAJcmVhZCh4LmVsZW1lbnR5W2ldKTsKICAgIAlpZiAoeC5lbGVtZW50eVtpXSBtb2QgMiA9IDApIHRoZW4geVtpXSA6PSB0cnVlCiAgICAJKCp6YXpuYWN6IGxpY3pieSBwYXJ6eXN0ZSB3eXBlxYJuaWFqYWMgcG9sZSBsYWJlbCBkbGEgbGljemIgcGFyenlzdHljaCB3YXJ0b8WbY2nEhSAidHJ1ZSIqKQogICAgCWVsc2UgeVtpXSA6PSBmYWxzZTsKICAgIAl3cml0ZSh4LmVsZW1lbnR5W2ldLCAnICAnKTsKICAgIAllbmQ7CiAgICAJd3JpdGVsbjsKICAgIGZvciBpOj0gMSB0byB4LmlsZSBkbyAKICAgIAlpZiB5W2ldIHRoZW4gd3JpdGUoeC5lbGVtZW50eVtpXSwgJyAgJykKCSgqd3lwaXN6IGxpY3pieSBwYXJ6eXN0ZSBwb3PFgnVndWrEhWMgc2nEmSB6YXpuYWN6ZW5pYW1pKikKCgoKCmVuZC4=

MjAKMSAyIDMgNCA1IDYgNyA4IDkgMTAgMTEgMTIgMTMgMTQgMTUgMTYgMTcgMTggMTkgMjA=

20
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20