ооочень ответьте на 2 во

3) по центру, по левому/правому краю.

строку наоборот?

var s: string;

i: integer;

begin

  read(s);

  for i: = length(s) downto 1 do

        s1: = s1+s[i];

  writeln(s1);

end.

периметр равен сумме всех сторон