{* Задача328 *}

REM basic

' Определить равна ли сумма первых двух цифр четырехзначногочисла f сумме двух его последних цифр.


CLS
INPUT "Введите F"; F$
If VAL(Mid$(F$, 1, 1)) + VAL(Mid$(F$, 2, 1)) = VAL(Mid$(F$, 3, 1)) + VAL(Mid$(F$, 4, 1)) Then
        PRINT "Сумма первых двух цифр равна сумме двух  последних цифр"
Else
        PRINT "Сумма первых двух цифр неравна сумме двух  последних цифр"
End If
End