Программирование ветвлений на Паскале

Тема: «Программирование ветвлений на Паскале»
Операции DIV и MOD
Сложные условия
Задача:
Дано число а.
Определите, кратно ли число 5?

Арифметические операции
DIV и MOD
a Div b
деление двух целых значений с отбрасыванием остатка
a Mod b
взятие остатка от деления двух целых значений
a, b - целые числа

Пример:
1. Дано число а. Определите, кратно ли число 5?
readln (a);
if (a mod 5)=0 then write('Yes') else write('No');
2. Дано трехзначное число. Определите, является ли вторая цифра в нем четной?
readln (a);
a:= a div 10;
if (a mod 2)=0 then write('Yes') else write('No');

Напишите программу
Группа 1
в команду по баскетболу надо отобрать учеников старше 14 лет и выше 170 см. Напишите программу, которая выдаст ответ, подходит ли ученик с ростом A, возрастом B для команды.
Группа 2
Определите, является ли введенное положительное число А трехзначным?
Группа 3
попадает ли точка с координатами x, y в закрашенную область?

Составьте алгоритм выделения цифр из трехзначного числа
Дано:
N = 459
Ответ:
a=9
b=5
n=4