Помогите с задачей, необходимо написать программу по данной блок схеме.
программу на языке паскаль

А можно "детский" вопрос? Если на блок-схеме не было блока вывода приглашения writeln('a, b, c:'); откуда он появился у Вас?

var a,b,c:real; k:integer;beginreadln(a,b,c);k:=1;repeatb:=b*2;a:=a-b/2;if a<=0  then writeln('Чёрт разорён') else begin      a:=a+c;      b:=b-c;      if b<=0 then writeln('Мужик разорён')              else k:=k+1;      end;until (a<=0)or(b<=0);writeln(k);end.Пример:15 12 4Чёрт разорён2