Алеся Зубова

// Дана строка символов, найти количество слов, имеющих четное количество букв.
Program CPascal;

const mn=['a'..'z','A'..'Z','а'..'я','А'..'Я']; // Буквы :)

var st,temp:string;
    i,count:byte;

Begin
Write('Введите строку: '); Readln(St);
Insert(#32,St,Length(St)+1);

Count:=0;

for i:=1 to Length(St) do
    Begin
    if (St[i] in Mn) then Temp:=Temp+St[i]
                     else
                         Begin
                         Writeln(Temp);
                         if not Odd(Length(Temp)) then Inc(Count);
                         Temp:='';
                         end;
    end;
    Writeln(Count);
end.