Я думаю, что будет в.
Для меня не понять 5 и 8, у них там 3 горизонтальных есть.
var arr: array [1..9] of integer;
i, num: integer;
begin
i := 1;
while (i <= 9) do
begin
readln(num);
if (num mod 3 = 0) then
begin
arr[i] := num;
i := i + 1;
end;
end;
end.
В 1 коробке ( с ленточкой ) есть кукла , во второй нет открытки
В три десятом царстве в неком тексте был народ килобайт было внем семей 1024. Каждую семью звали байт .В каждой семье жило 8 бит .