Если целое число A делится нацело на целое число B, то вывести на экран частное от деления, в противном случае вывести сообщение «A/B нацело не делится» на языке Pascal.

Можно решить задачу через проверку остатка от деления. В Pascal для этого используется операция mod. Если остаток от деления A на B равен нулю, значит число A делится на B нацело.

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

pascal
program DivisionCheck;

var
  A, B: integer;

begin
  writeln('Введите целое число A:');
  readln(A);

  writeln('Введите целое число B:');
  readln(B);

  if B = 0 then
    writeln('На ноль делить нельзя')
  else
    if A mod B = 0 then
      writeln('Частное от деления: ', A div B)
    else
      writeln(A, '/', B, ' нацело не делится');
end.

Здесь:

readln(A) и readln(B) считывают два целых числа.

Проверка

pascal
if B = 0 then

нужна для того, чтобы избежать деления на ноль.

Оператор

pascal
A mod B

находит остаток от деления A на B.

Если остаток равен нулю:

pascal
if A mod B = 0 then

то число A делится на B нацело, и программа выводит частное:

pascal
A div B

Оператор div выполняет целочисленное деление.

Например, если ввести:

A = 12
B = 3

программа выведет:

Частное от деления: 4

А если ввести:

A = 10
B = 3

программа выведет:

10/3 нацело не делится