Program tt5_27;<br/>
uses crt;<br/>
var b:array [1..4]of string;<br/>
a,c:string;<br/>
i,j,k:integer;<br/>
BEGIN<br/>
clrscr;<br/>
write('vvedite chislo');<br/>
readln(a);<br/>
i:=0;<br/>
k:=0;<br/>
c:=' ';<br/>
for i:=0 to length(a) do<br/>
if (a[i]<>'0') and (a[i]<>'5') then<br/>
 begin<br/>
 j:=j+1;<br/>
 k:=k+1;<br/>
 b[j]:=a[i];<br/>
 end;<br/>
for j:=1 to k do c:=c+b[j];<br/>
write('poluchite chislo',c);<br/>
readln;<br/>
END.<br/>
</p>