По заданной программе постройте блок-схему.

var x , y , z : real;

begin

writeln ('Введите три числа');

readln (x , y , z);

if (x<=y) and (y<=z)

then

begin

x:=2*x;

y:=2*y;

z:=2*z

end

else

begin

x:=abs(x);

y:=abs(y);

z:=abs(z);

end

writeln (x,'',y,'',z)

end.

ruslan5632    1   24.04.2020 14:15    3