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

Program n1;
var
N, K, i: integer;
begin
readln(N, K);
while (N - K >= 0) do
begin
N := N - K;
i := i+ 1;
end;
writeln('Частное от деления: ',i);
writeln('Остаток: ', N);
end.