{* Задача148 *}

REM basic

' Ввести с клавиатуры 16 чисел, определить количество чисел равных -29; +29 и равных 0


For i=1 To 16
INPUT "Vvedi chislo",c
If c=-29 Then t1=t1+1
If c=29 Then t2=t2+1
If c=0 Then t3=t3+1
Next i
? "-29 - ",t1," shtuk"
? "29 - ",t2," shtuk"
? "0 - ",t3," shtuk"