Составьте программу, которая: • запрашивает у пользователя два числа • проверяет кратность числу 7 • выводит результат

Пример программы (Pascal):

program CheckDivisibility;
var
  num1, num2: integer;
begin
  writeln('Введите первое число:');
  readln(num1);
  writeln('Введите второе число:');
  readln(num2);

  if num1 mod 7 = 0 then
    writeln(num1, ' кратно 7')
  else
    writeln(num1, ' не кратно 7');

  if num2 mod 7 = 0 then
    writeln(num2, ' кратно 7')
  else
    writeln(num2, ' не кратно 7');
end.

Пример работы программы:

Ответ: Программа запрашивает два числа и выводит, кратно ли каждое из них 7.