Составить программу в Pascal. В которую введя любое трехзначное число оно выводит число-перевертыш (пример ввожу 122

var s, s2: string; n, m: longint; i, err: integer;

begin writeLn ( \'Введите целое трехзначное число: \' ); readln ( n ); str ( n, s ); s2 := \'\'; for i := length ( s ) downto 1 do s2 := s2 + s[i]; val (s2, m, err); writeLn ( \'Полученное число: \', M, \'.\' ); readln;end.