Girilen Kelimeyi Tersten Yazan Program

10 CLS
20 INPUT "Kelimeyi Giriniz : "; A$
30 PRINT "Tersi: ";
40 FOR X = 1 TO LEN(A$)
50 PRINT MID$(A$, LEN(A$) + 1 - X, 1);
NEXT