Проверка кратности числа в Pascal

Вводятся два числа (большее и меньшее). Определить, кратно ли первое число второму, то есть делится ли первое число нацело на второе. Вывести на экран сообщение об этом, а также остаток от деления, если первое число не кратно второму.

Примеры выполнения программы

1034
8
Первое число не кратно второму
Остаток от деления = 2

121
11
Первое число кратно второму

Программа на языке Паскаль

var
    a, b: integer;
    modulo: integer;

begin
    readln(a, b);

    modulo := a mod b;

    if modulo = 0 then
        writeln('Первое число кратно второму')
    else begin
        writeln('Первое число не кратно второму');
        writeln('Остаток от деления = ', modulo)
    end;
end.

Алгоритм решения задачи

1. Сначала найдем остаток от деления первого числа на второе. Сделать это можно с помощью оператора mod языка Pascal.
2. Присвоим остаток переменной modulo.
3. Если остаток равен нулю, значит первое число кратно второму.
4. Иначе, первое число не кратно второму.

В программу можно не вводить переменную для хранения остатка, а сравнивать остаток с нулем сразу после выполнения операции mod. Однако эту же операцию (нахождение остатка) надо будет повторить и при его выводе на экран.

var
    a, b: integer;

begin
    readln(a, b);

    if a mod b = 0 then
        writeln('Первое число кратно второму')
    else begin
        writeln('Первое число не кратно второму');
        writeln('Остаток от деления = ', a mod b)
    end;
end.