нужно блок-схема на program Pr45;vara, b, c, d : real;max : real;beginreadln(a, b, c, d);if (a max) then max := b;if (c > max) then max := c;if (d > max) then max := d;a := max;b := max;c := max;d := max;endelse if not ((a > b) and (b > c) and (c > d)) thenbegina := sqr(a);b := sqr(b);c := sqr(c);d := sqr(d);end;writeln(a : 5 : 2);writeln(b : 5 : 2);writeln(c : 5 : 2);writeln(d : 5 : 2);readln;end.