{* Задача381 *}

REM basic

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


CLS
Do
    INPUT "chislo-"; c
Loop Until c > 999 And c < 10000
s1 = FIX(c / 1000)
s2 = FIX((c - s1 * 1000) / 100)
PRINT "proizvedenie:"; s1 * s2
End