Elaborati un program in pascal care va citi de la tastatura un sir de caractere(string). Afiseaza la ecran numarul de enunturi si numarul de cuvinte din acest sir.
var i,k,a:integer;s:string;b:array [1..10] of integer;beginreadln(s);a:=0;for i:=1 to length(s) doif s[i]='.' thenbegina:=a+1end;writeln(s,' Sunt ',a,' propoziti',' , ',length(s),' cuvinte.');end.
