Pascal :
var a:array[1..4] of char; i:longint; begin for i:=1 to 4 do read(a[i]); for i:=4 downto 1 do write(a[i]); end.
By signing up a 算道OJ universal account, you can submit code and join discussions in all online judging services provided by us.
Using your 算道OJ universal account
