Составить программу() найти число x соответствующее целому от деления действительных чисел c и d

Program NoName;
Var x:integer;
c, d:real;
Begin
Write ('Введите числа c:=, d:=');
Read (c,d);
x:=c div d;
Write (x);
end.