Нужно блок-схема на program Pr45; var
a, b, c, d : real;
max : real;
begin
readln(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;
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.

кпо123    1   05.02.2021 16:18    1