Удалить из массива целых чисел все четные числа, если таких нет, то вывести…

Uses crt; const n=10; var a: array[1… n] of integer; i,k: integer; beginrandomize; for i: =1 to n dobegina[i]: =random (50); write (a[i]: 3); end; writeln; for i: =1 to n doif a[i] mod 2=0 then inc (k); if k=0 then writeln ('Элементы для удаления не найдены') elsebeginfor i: =1 to n doif a[i] mod 2<>0 then write (a[i]: 3); end; end.