program Taylor;
uses crt;
var  k:array[1..1000000]of real; n,i,dem:longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('k[',i,']=');readln(k[i]);
         if (k[i]>24.5)or(k[i]<10) then inc(dem);
      end;
   for i:=1 to n do write(k[i]:0:2,' '); writeln;
   writeln(dem);
readln
end.

program Taylor;
uses crt;
var s:string; i,n,j:longint; a:array[1..10000]of string;
begin
clrscr;
   write('s=');readln(s); n:=1;
   for i:=1 to length(s) do
      if (i>1)and(s[i]=' ')and(s[i-1]<>' ') then inc(n) else
      if s[i]<>' ' then a[n]:=a[n]+S[I]; if s[i]=' ' then dec(n);
   for i:=1 to n do
      begin
         a[i]:=upcase(a[i]);
         for j:=2 to length(a[i]) do a[i][j]:=chr(ord(a[i][j])+32);
         write(a[i],' ');
      end;   writeln;
   for i:=2 to n do  write(a[i],' ');
readln
end.