[@SilentScream]

program pizda;
uses crt;
var asize, tmpdig, i : integer;

begin
write("Введите размер массива: ");
readln(asize);
var tArray : Array[1..asize] of Integer;

for i := 1 to asize do
begin
    write("Введите число: ");
    readln(tmpdig);
    tArray[i] := tmpdig;
end;

for i := 1 to asize do
begin
    if odd(tArray[i]) = 1 then
    asize = asize - 1;
end;

var tArray : Array[1..asize] of Integer;
var i2 : Integer;
id : = 0;

for i := 1 to asize do
begin
    if odd(tArray[i]) = 0 then
    begin
        tArray2[i2] := tArray[i];
        i2 = i2 + 1;
    end;
end;

writeln("Итог вычислений: " , tArray2);
end.

я не знаю паскаль. D: какта так?