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.
