Даны натуральное число n, символы s1,… sn., группы символов, разделенные пробелами…

vars: string; i,count,count1,numI: integer; begincount: =0; count1: =0; readln (s); for i: =1 to length (s) doif (s[i]=') thenbegincount: =count+1; numI: =i; end; for i: =numI+1 to length (s) do count1: =count1+1; writeln ('Число букв в последнем слове: ',count1); end.