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

я закинул блок схему

большое спасибо

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