Пусть дано натуральное число n и вещественные числа a1,a2... 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.