4,
var s,s1:string
i:longint;
begin
read(s);s1:='';
for i:=lenght(s) downto 1 do s1:=s1+s[i];
write(s1);
readln;
end.
5,
var a:array[1..200] of longint;
i,n,min:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
min:=a[1];
for i:=1 to n do if a[i]<min...