Даны целые положительные числа n и k. используя только операции сложения и вычитания, найти частное от деления нацело n на k, а также остаток от этого деления.

Program gt;
var n,k,t:integer;
begin
read(n,k);
t:=0;
while n>=k do
begin
n:=n-k;
t:=t+1;
end;
writeln(t);
end.