Repeat
a:=a+1;
b:=Arr[a];
writeln(b);
until b = 0;
Вероятно так
Sub DQXTER()
Do
k = CInt(InputBox("Введите возраст от 1 до 99"))
Loop Until k >= 1 And k <= 99
Select Case k
Case 11 To 14
MsgBox "Мне " + Str(k) + " лет"
Case Else
Select Case k Mod 10
Case 1
MsgBox "Мне " + Str(k) + " год"
Case 2 To 4
MsgBox "Мне " + Str(k) + " года"
Case Else
MsgBox "Мне " + Str(k) + " лет"
End Select
End Select
End Sub
плата вроде как, если не ошибаюсь
1) Оперативная память
2)Процессор
3)Монитор
4)Аппаратное обеспечение (не уверен)
5)Двоичный код