як обчислити площу прямокутника, якщо ширина 7см, а довжина у 2 рази більша?

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

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

Составьте блок-схему, соответствующую программе.

Что является результатом работы программы?