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.