Код ниже
Объяснение:
program calcRest;
var A,B, diff: real;
begin
writeln('Ведите числа A и B: ');
readln(A,B);
diff := A - B;
while diff > B do begin
diff := diff - B;
end;
writeln(diff);
end.
