напишите программу в паскале:
удалить из массива последний четный элемент

//PascalABC.NET 3.2 сборка 1318Const  n=5;  Var  ar:array[1..n] of integer;  i,indf:integer;beginindf:=-1;for i:=1 to n do  begin    readln(ar[i]);    if not(odd(ar[i])) then indf:=i;  end;if indf=-1 then  writeln('Нет чётных') else  begin    for i:=indf to n-1 do      ar[i]:=ar[i+1];    for i:=1 to n-1 do      write(ar[i]:4);  end;end.Пример ввода:1 2 3 4 5Пример вывода:1 2 3 5