Пусть дано натуральное число n и вещественные числа a1, a2, a3,,…an, которые вводятся по одному. Найти |a1-an|.

uses math;

var a1, an: real;

i, n: integer;

begin

read(n);

read(a1);

for i := 2 to n - 1 do read();

read(an);

writeln(abs(a1 - an));

end.