Составить блок-схему и написать программу Паскаль."Мужик и чёрт".помогите, пожааалуйста!

Var b,a,c,x:integer;
begin
writeln('Введите капитал мужика');
readln(b);
writeln('Введите капитал черта');
readln(a);
writeln('Введите дань');
readln(c);
x:=0;
repeat
b:=b*2;
b:=b-c;
a:=a-b;
a:=a+c;
x:=x+1;
until (b<0) or (c<0);<br>writeln(x);
end.