Question

У магазині іграшок продають в упаковці по три м'ячики та по п'ять м'ячиків. Чи можна купити рівно n м'ячиків? Вказівка. Неможливо купити рівно n м'ячиків, коли n < 3 або n = 4, або n = 7. ТЕСТ 1 Вхідні дані: 7 Вихідні дані: Не можна купити рівно 7 м'ячиків ТЕСТ 2 Вхідні дані: 22 Вихідні дані: Можна купити рівно 22 м'ячиків

Нужно написать в Pascal

Answer 1

```
program BallPacks;

var

 n: integer;

begin

 write('Enter the number of balls: ');

 readln(n);

 if (n < 3) or (n = 4) or (n = 7) then

   writeln('It is not possible to buy exactly ', n, ' balls')

 else

   writeln('It is possible to buy exactly ', n, ' balls');

end.

```

У цьому коді ми спочатку пропонуємо користувачеві ввести кількість куль, які він хоче купити. Потім ми використовуємо оператор if, щоб перевірити, чи кількість кульок менша за 3, дорівнює 4 або дорівнює 7. Якщо будь-яка з цих умов виконується, ми друкуємо повідомлення про те, що неможливо купити рівно n кульок. В іншому випадку ми друкуємо повідомлення про те, що можна купити рівно n кульок.