Решить хотя бы одну из задач ​

Var s:string; i:integer;

Begin

Readln(s); i:=length(s);

while (i>0) and (s [ i]=' ') do i:=i-1;

if i=0 then Writeln('слова в строке не обнаружены')

else repeat Write(s[ i]); i:=i-1 until (i=0) or (s[ i]=' ');

End.

Объяснение

uses crt;

var s: string;

   i: integer;

begin

write('s=');

readln(s);

for i:=1 to length(s) do

   if (s[i]='à') or  (s[i]='À') or (s[i]='a') or (s[i]='A')

      then s[i]:='O';

write('s=',s);

end.