Дано предложение,определить длину последнего слова.

Var
 str:string;
 k,i:integer;
begin
 k:=1;
 readln(str);
 for i:=1 to Length(str) do
begin
 if str[i]=' ' then
  k:=i;
end;
 writeln(Length(str)-k);
end.