PRINT "vvedite razmery poverhnosti:"
INPUT "dlinnaya storona=", a
INPUT "korotkaya storona=", b
PRINT "vvedite razmery pryamougolnika:"
INPUT "dlinnaya storona=", c
INPUT "korotkaya storona=", d
kol1 = (a \ c) * (b \ d)
kol2 = (a \ d) * (b \ c)
IF kol1 > kol2 THEN PRINT "dlinnaya vdol dlinnoy, kol-vo= "; kol1 ELSE PRINT "korotkaya vdol dlinnoy, kol-vo="; kol2
Тестирование выполнено в программе QB64 ( Скачать )