Помогите пожалуйста, даю 50 баллов.
Составьте блок-схему.
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