var a,b:integer;
begin
write ('Введите делимое: ');
readln (a);
write ('Введите делитель: ');
readln (b);
repeat
a:=a-b;
until a<b;
writeln ('Остаток: ',a)
end.
