Ввести предложение (между словами не менее одного пробела). Вывести длину самого…

Program PR1; uses crt; var stroka,tmp: string; i,b,max: integer; Beginclrscr; readln (stroka); max: =0; for i: =1 to length (stroka) do if (stroka[i]=') or (stroka[i]='.') then beginif length (tmp) >max then max: =length (tmp); tmp: ='; endelse begin tmp: =tmp+stroka[i]; if i=length (stroka) then if length (tmp) >max then max: =length (tmp); end; writeln (max); end.