Паскаль. дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). найти количество слов в строке.

Const   blanks = [' ']; function posblank(s: string; pn, pk: integer): integer; {   ищет в строке s в позициях от pn до pk пробельный символ.   возвращает его позицию в строке или ноль, если таковой символ не найден.   использует подмножество пробельных символов blanks, что позволяет определять   произвольный набор пробельных символов (например, табуляцию и т.д.) } var   p: integer;   flag: boolean; begin   p : = pn;   flag : = true;   while flag and (p < = pk) do   begin       if s[p] in blanks then flag : = false       else p : = p + 1   end;   if p > pk then posblank : = 0   else posblank : = p end; function posnonblank(s: string; pn, pk: integer): integer; {   ищет в строке s в позициях от pn до pk непробельный символ.   возвращает его позицию в строке или ноль, если таковой символ не найден.   использует подмножество пробельных символов blanks, что позволяет определять   произвольный набор пробельных символов (например, табуляцию и т.д.) } var   p: integer;   flag: boolean; begin   p : = pn;   flag: =true;   while flag and (p < = pk) do   begin       if s[p] in blanks then p : = p + 1       else flag : = false   end;   if p > pk then posnonblank : = 0   else posnonblank : = p end; var   s: string;   i, l, k: integer; begin   write('введите строку: ');   readln(s);   l : = length(s);   k : = 0;   i : = posnonblank(s, 1, l);   while (i> 0) and (i < = l) do   begin       k : = k + 1;       i : = posblank(s, i + 1, l);       if i = 0 then i : = l + 1       else i : = posnonblank(s, i + 1, l)   end;   writeln('количество слов в строке равно ', k) end.

If x< > b then y = (x+a)^2; else y = x +exp(b);