Вот программы для обеих задач, которые вы задали.

Задача 1: Проверка кратности числа A числу Bprogram CheckDivisibility;
var
A, B: longint;
begin
writeln('Введите число A:');
readln(A);
writeln('Введите число B:');
readln(B);
if B <> 0 then // Проверка на деление на ноль
begin
if A mod B = 0 then
writeln('Число A кратно числу B')
else
writeln('Число A не кратно числу B')
end
else
writeln('Деление на ноль невозможно');
end.Задача 2: Оценка по предметамprogram GradesEvaluation;
var
mathGrade, russianGrade: integer;
total: integer;
begin
writeln('Введите четвертные оценки по математике и русскому языку:');
readln(mathGrade);
readln(russianGrade);
total := mathGrade + russianGrade;
if total >= 9 then
writeln('Молодец!')
else
writeln('Подтянись');
end.Объяснение:

Первая программа:

Запрашивает у пользователя два числа: A и B.Проверяет, не равно ли B нулю, чтобы избежать деления на ноль.Если A кратно B (A mod B = 0), выводит, что A кратно B. В противном случае – выводит, что A не кратно B.

Вторая программа:

Запрашивает у пользователя две оценки: по математике и русскому языку.Суммирует эти оценки и проверяет, больше или равно ли их сумма 9.Выводит соответствующее сообщение в зависимости от результата проверки.

Вы можете запустить данные программы в любой среде разработки, поддерживающей язык Pascal.