Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления

var n, k, chastnoe, ostatok:integer;
begin
Writeln('Введите N и K');
Read(n, k);
while n>=k do
begin
n:=-k;
chastnoe:=1;
ostatok:=n;
end;
writeln('Частное = ',chastnoe,' Остаток = ',ostatok);
end.

var n, k, chastnoe, ostatok:integer;
begin
repeat
Writeln('Введите целые положительные числа N и K');
Read(n, k);
until(n>0)and(k>0);
chastnoe:=0;
while n>=k do
 begin
  chastnoe:=chastnoe+1;
  n:=n-k;
 end;
ostatok:=n;
writeln('Частное = ',chastnoe,' Остаток = ',ostatok);
end.

repeat
  chastnoe:=chastnoe+1;
  n:=n-k;
until n<k;

Program zadanie1_lab4;
  var N,K,H,O:integer;
  // N - Целое число №1
  // К - Целове число №2
  // H - Частное
  // О - Остаток
begin
H:=0;
Writeln('Введите 2 целых положительных числа:');
Read(N,K);
if (N>0) and (K>0) then // Проверка на положительность
  while N>=K do
  begin
  H:=H+1;
  N:=N-K;
  end;
O:=N;
writeln('Частное = ',H,' Остаток = ',O);
end.