Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста срочно ... за ранее спасибо !
Дан текст состоящий из нескольких слов : вывести на экран слова заканчивающиеся на букву я.)

Ответ оставил Гость

Var s,s1:string; p:integer;
begin
writeln(Введите строку:);
readln(s);
s1:=s+ ;
while s1<> do
  begin
 p:=pos( ,s1);
 if (p>1)and(s1[p-1]=я) then writeln(copy(s1,1,p-1));
 delete(s1,1,p);
 end;
end.