Составьте блок-схему.

program a3;
var: x, y, z:real;
begin
writeln('Введите три числа')
readln(x, y, z);
if(x<=y)and(y<=z)
then
begin
x:=2*z;
y:=2*y;
z:=2*z;
end
else
begin
x:=abs(x);
y:=abs(y);
z:=abs(z)
end
writeln(x,", y,",z)
end

PapayaS    3   11.05.2020 15:51    1