Вывести элементы числовой последовательности, в записи значения которых содержится только одна цифра 5.

var

a: array [1..10] of integer;

i : integer;

begin

randomize;

for i:=1 to 10 do A[i]:=Random(15);

for i:=1 to 10 do if A[i]=5 then

writeln('да то что надо ',A[i])

else writeln('ошибка'); readln ;

end.