Программа на скрине! Надеюсь помог!
Function reverse(s:string):string;
var s1:string;
i:integer;
begin
for i:=1 to length(s) do
s1:=s[i]+s1;
reverse:=s1;
end;
var s:string;
begin
readln(s);
s:=reverse(s);
writeln(s);
<span>end.</span>
Ответ:
Информация передаётся в форме сообщений от некоторого источника информации к её приёмнику посредством канала связи между ними.
ВОТ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,