{* Задача372 *}

REM basic

' Два трехзначных числа, мне нужно найти сумму новых, чтобы поменялись крайние цифры.


For i = 1 To 2
INPUT "vvedite 3-znachnoe chislo ", a
GoSub obmen
s = s + a
Next
PRINT  s
End
obmen:
b = a Mod 10
c = a  100
d = a  10 Mod 10
a = b * 100 + d * 10 + c
Return
End