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

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