program mn;
uses crt;
var n:string;
c,i:integer;
a:array[1..5]of integer;
BEGIN
ClrScr;
Write('n:');
readln(n);
for i:=1 to length(n) do
begin
val(n[i],a[i],c);
if a[i]>5
then writeln(a[i]);
end;
readln;
END.