Program First;

Const
 eps=0.0001;

Var
 n:Integer;
 Y_old,Y_new,Delta:Real;

Begin
 Y_old:=1;
 n:=0;
 Repeat
  Inc(n);
  Y_new:=Y_old*(1+1/(n*n));
  Delta:=Y_new-Y_old;
  Y_old:=Y_new;
 Until Delta<=eps;
 Writeln('Y = ',Y_new:0:5);
 Writeln('n = ',n);
 Writeln('Last = ',(1+1/(n*n)):0:15);
End.

Program Second;

Var
 S:String;
 L,i,n:Integer;

Begin
 Writeln('Enter the number:');
 Readln(S);
 L:=Length(S);
 n:=0;
 for i:=1 to L do
  if S[i]='5' then Inc(n);
 Writeln(n,' times');
End.