program while2;
uses crt;
var a,b,k:integer;
begin
clrscr;
writeln('Введите число а ');
readln(a);
writeln('Введите число b (B<A) ');
readln(b);
if b>a then
k:=0
else
begin
k:=0;
while a>b do
begin
a:=a-b;
k:=k+1;
end;
end;
writeln('Кол-во отрезков ',k);
readln;
end.