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

var a:array[1..100] of integer;
    i,n:integer;
    f1,f2:text;
begin
     assign(f1, 'input.txt');
     assign(f2, 'output.txt');
     reset(f1);
     read(f1,n);
     rewrite(f2);
     for i:=1 to n do
     begin
         read(f1,a[i]);
         if (a[i] mod 10=5) or (a[i] div 10 = 5) then writeln(f2,a[i]);
     end;
     close(f1);
     close(f2);
end.

var
  i,a,n:integer;
  f1,f2:text;
begin
  assign(f1, 'input.txt'); reset(f1);
  assign(f2, 'output.txt'); rewrite(f2);
  readln(f1,n);
  for i:=1 to n do
  begin
    read(f1,a);
    if (a <> 55) and ((a mod 10 = 5) or (a div 10 = 5)) then writeln(f2, a);
  end;
  close(f1);
  close(f2);
end.

var k,b,x,i,n:integer;
begin
readln(n);
for i:=1 to n do begin
read(k);
b:=k mod 10;
x:=k div 10;
if ((b=5) or (x=5)) and (b<>x) then
writeln(k);
end;
end.

Read(s);//string
c:=1; s:=s + ' ';
for i:=1 to length(s) do
begin
if s[i] in ['0'..'9'] then a[c]:=a[c]+s[i] else if (not (s[i] in ['0'..'9']))
                      and (s[i+1] in ['0'..'9']) then c:=c+1;
end;
for i:=1 to c do
begin
p:=0; buf:=a[i];
for j:=1 to length(buf) do if buf[j]='5' then p:=p+1;
 
if p=1 then WriteLn(a[i]);
 
end;