арифметическая прогрессия

[Юлёна]

Дана последовательность чисел а1,а2,а3…. Проверить является ли данная последовательность арифметической прогрессией

[Летучий_СкилетиК]

var a:array[byte]of integer;
i,n,s:integer;
g:boolean;
begin
read(n);
for i:=1 to n do
read(a[i]);
g:=true;
s:=a[2]-a[1];
for i:=2 to n-1 do
if  a[i+1]-a[i]<> s then g:=false;
if g then write('Yes')else write('No');
end.

[Юлёна]

Спасибо!