По данной блок схеме решить задачу

Программа:

Pascal:

var

 a, b, c, m: real;

begin

 write('a = ');  readln(a);

 write('b = ');  readln(b);

 write('c = ');  readln(c);

 m := (2 *max(a, b) + min(a + 3, b)) / (min(c, a - b));

 writeln('m = ', m);

end.