Напишите программу, которая вычисляет частное от целочисленного деления двух заданных целых чисел и выводит на экран монитора результат.

Program div;
var
d, x, y: integer;
begin
write(x = );
readln(x);
write(y = );
readln(y);
d := x div y;
writeln(частное: , d);
end.