Программа №1:

program FindMinNumber;
var
num1, num2, num3: integer;
begin
writeln('Введите три целых числа:');
readln(num1, num2, num3);

if (num1 <= num2) and (num1 <= num3) then
writeln('Наименьшее число: ', num1)
else if (num2 <= num1) and (num2 <= num3) then
writeln('Наименьшее число: ', num2)
else
writeln('Наименьшее число: ', num3);

end.

Программа №2:

program BasketballSection;
var
age, height: integer;
begin
writeln('Введите возраст и рост ребенка (в см):');
readln(age, height);

if (age >= 9) and (height > 150) then
writeln('Ребенок может быть принят в секцию баскетбола')
else
writeln('Ребенок не подходит по условиям для участия в секции баскетбола');

end.