program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

type Typ=array[0..9] of char;

function f1(tab: Typ):string;
var s:integer;
    i:integer;
begin
     result:=0;
     s:=0;
     for i:=0 to 9 do
     begin
       if tab[i]>chr(64) and tab[i]<91 then s:=s+1;
       result:=s;
     end;

end;

var tab:Typ;
    i:integer;
begin
     for i:=0 to 9 do
     writeln('podaj',i,'liczbe: ');
     readln(tab[i]);
end.