Написать программу(паскаль): даны два числа c и d найти целую часть от деления первого на второе.

Var
  c,d:integer;
Begin
  Write('Введите С ');
  Readln(c);
  Write('Введите D ');
  Readln(d);
  write('Целая часть от деления ',c,' на ',d,' равна ',c div d);
End.