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.
