Question

Запишите на языке Pascal логическое выражение, имеющее значение true при выполнении указанного условия и false в противном случае. Результат вычисления выражения присвойте логической переменной `F`. 1) `a` делится на все числа меньше `7`.
2) `(x, y)` находится внутри единичной окружности с центром в `0`, а `z` целое число.
3) В трёхзначном числе есть две одинаковые цифры.
4) Точки `(x1, y1)`, `(x2, y2)`, `(x3, y3)` лежат на одной прямой.
5) `x` или трёхзначное чётное число или четырёхзначное нечётное.