Удалите из массива все элементы, содержащие в своей записи цифру 5.

//Pascal ABC.NET v3.0 сборка 1111Const n=5;Var ars:array[1..n] of string; i,j,k:integer;begink:=n; for i:=1 to n do readln(ars[i]); for i:=1 to n do  if pos('5',ars[i])<>0 then   begin;    for j:=i to n-1 do      ars[j]:=ars[j+1];     dec(k);   end; writeln('Final array:');  for i:=1 to k do  writeln(ars[i]);end.Пример ввода:34345656676757578989Пример вывода:Final array:343467678989