Паскаль. Как переместить значение локальной переменной в глобальную?

Несколько вариантов:

1) Описать переменную как глобальную:

var X : Double;

procedure Square(Y : Double);

begin

X := Y*Y;

end;

…

Square(2);

WriteLn(X); { будет выведено 4 }

2) Описать переменную в параметрах процедуры как изменяемую:

procedure Square(Y : Double; var X : Double);

begin

X := Y*Y;

end;

var Z : Double

…

Square(2, Z);

WriteLn(Z); { будет выведено 4 }

3) Воспользоваться функцией (самый лучший вариант) :

function Square(Y : Double) : Double;

begin

Square := Y*Y;

end;

…

WriteLn(Square(2)); { будет выведено 4 и без использования лишних переменных }