Вводятся два числа, определить делится ли первое число на второе нацело​

Программа определяет делится ли первое число на второе нацело​ и выводит частное:

var

 a, x, y: integer;

 b: real;

begin

 writeln('Введите два числа');

 read(x, y);

 a := x mod y;

 b := x / y;

 if a = 0

   then writeln('Первое число делится на второе, частное: ', b)

 else writeln('Первое число не делится на второе');

end.

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

var

 a, x, y: integer;

begin

 writeln('Введите два числа');

 read(x, y);

 a := x mod y;

 if a = 0

   then writeln('Первое число делится на второе')

 else writeln('Первое число не делится на второе');

end.