Пример работы:
Привет
ответ:
в-1 е-1 и-1 П-1 р-1 т-1
uses crt;
var
i: integer;
st:string;
c:char;
procedure vvod_s(var s:string);
begin
WriteLn('Введите строку слов,признак окончания-точка:');
ReadLn(s);
end;
Begin
clrscr;
vvod_s(st);
...
End.
а что мне дальше делать,подскажите пожалуйста!!!