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

В Паскаль Const 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.