uses crt;
var n,i,d,max:longint;
a:array[1..1000]of integer;
begin
write('nhap do dai cua day so:');
readln(n);
max:=0;
for i:=1 to n do begin
write('nhap phan tu thu ',i,' :');
readln(a[i]);
if i>1 then
if a[i-1]>a[i]then d:=a[i-1]-a[i]
else d:=a[i]-a[i-1];
if d>max then max:=d;
end;
writeln('khoang cach lon nhat cua 2 so hang lien ke nhau cua day la:',max);
readln
end.