Program Pzim;
  Uses crt;
 var
 	 S: string;
 	 i, count_branco: integer;
 Begin
     WriteLn('Digite a frase:');
     ReadLn(S);
     For i:=1 TO LENGTH(S) DO
     	If(POS(CHR(32), S[i]) <> 0) Then
     		count_branco:=count_branco+1;
     WriteLn(count_branco, ' caracteres brancos');
 End.


~~~~~~~

Program Pzim2;
  Uses crt;
 var
    S, trecho: string;
    N: integer;
    Begin
         WriteLn('Digite a frase:');
         ReadLn(S);
         WriteLn('Digite o numero de carac: ');
         ReadLn(N);
         trecho:=COPY(S, (LENGTH(S)-N+1), N);
         WriteLn(trecho);
         ReadKey;
 End.


~~~~~~~

Program Pzim;
  Uses crt;
 var
      trecho, S: string;
      N: integer;
    Begin
         WriteLn('Digite a frase: ');
         ReadLn(S);
         WriteLn('Digite a quantidade de carac: ');
         ReadLn(N);
         trecho:=COPY(S, 1, N);
         WriteLn(trecho);
         ReadKey;
End.


~~~~~~

program p4;
  Uses crt;
  var
    S, trecho: string;
    N, P: integer;
  Begin
       WriteLn('Digite a frase: ');
       ReadLn(S);
       WriteLn('Digite uma posicao: ');
       ReadLn(P);
       WriteLn('Digite uma quantidade: ');
       ReadLn(N);
       trecho:=COPY(S, P, N);
       WriteLn(trecho);
       ReadKey;
End.