Решение задачи While 1

#include <bits/stdc++.h>
using namespace std;

int main() {
	srand((int)time(0));
	int B = rand() % 5 + 1;
	int A = B + rand() % 20 + 1;	
	cout << "A = " << A << endl;
	cout << "B = " << B << endl;
	
	int r = A - B;
	while(r >= B)
		r -= B;
	cout << "Remainder = " << r << endl;

	return 0;
}

import random

A = random.randrange(50,100)
B = random.randrange(1,A)
print('A = ', A)
print('B = ', B)

r = A - B
while r >= B:
    r -= B
print("Остаток: ", r)
									

program While1;
var
  A, B,temp :Integer;
begin
  Write('Введите A: ');
  Readln(A);
  Write('Введите B: ');
  Readln(B);
  temp:=A;
  while temp>=0 do temp:=temp-B;
  Writeln(temp+B);
end.