var A,B,sum:Real;
n:integer;
begin
Write('A=');
Readln(A);
Write('B<A=');
Readln(B);
n:=0;
sum:=0;
repeat
if (sum+B)>A then break
else
begin
sum:=sum+B;
Inc(n);
end;
until (sum+B)>A;
Writeln('Ne zanyato=',(A-sum):0:2);
Writeln('Otrezkov B v A =',n);
Readln;
end.
Блок схемы рисовать не умею.