нужно составить блок-схему program Pr45; var a, b, c, d : real; max : real; begin readln(a, b, c, d); if (a <= b) and (b <= c) and (c <= d) then begin max := a; if (b > max) then max := b; if (c > max) then max := c; if (d > max) then max := d; a := max; b := max; c := max; d := max; end else if not ((a > b) and (b > c) and (c > d)) then begin a := 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.