Составьте программу которая запрашивает числитель и знаменатель неправильной дроби и выделяет целую часть числитель и знаменатель: 17 3 17/3=5 2/3

Program v1;
Var  n,k, sum: integer;
 Begin 
 Write ('Введите знаменатель: '); 
 Readln(n); 
Write ('Введите числитель: '); 
 Readln (k);
 Sum := (n div k); 
 Write(Sum);
End.