program while1;
uses crt;
var a,b:integer;
begin clrscr;
repeat
writeln('Введите число а ');
readln(a);
writeln('Введите число b (B<A) ');
readln(b);
until(b>0)and(a>b);
while a>=b do
a:=a-b;
writeln('Результат ',a);
readln
end.
program while1;
uses crt;
var a,b:integer;
begin clrscr;
repeat
writeln('Введите число а ');
readln(a);
writeln('Введите число b (B<A) ');
readln(b);
until(b>0)and(a>b);
while a>=b do
a:=a-b;
writeln('Результат ',a);
readln
end.