Определить число, полученное выписыванием в обратном порядке цифр заданного целого трёхзначного числа — Pascal(Паскаль)

var
  n,result:integer;
begin
  readln(n);
  result:=(n mod 10)*100+((n div 10) mod 10)*10+(n div 100);
  writeln(result)
end.

var
  s:string;
  temp:char;
  i:integer;
begin
  readln(s);
  for i:=1 to length(s) div 2 do
  begin
    temp:=s[i];
    s[i]:=s[length(s)-i+1];
    s[length(s)-i+1]:=temp
  end;
  writeln(s)
end.