Дана программа на языке Паскаль

Question

Дана программа на языке Паскаль: 
 
program a3; 
 
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 
 
Составьте блок-схему, соответствующую программе. 
 
Что является результатом работы программы?

Лизачка Колесникова · Accepted Answer

неужели это так тяжело? согласно алгоритма сравниваются введенные числа, если выполняется условие что х меньше или равен у и у меньше или равен z то эти числа удваиваются, если не выполняется - извлекается модуль из этих чисел.