Проверить, составляют ли члены массива арифметическую прогрессию

uses crt;
var a:array[1..100]of integer;
    n,i,k,d:integer;
begin
clrscr;
write('Razmer massiva n=');readln(n);
writeln('Vvedite ',n,' elementov massiva:');
for i:=1 to n do
  begin
   write('a[',i,']=');
   readln(a[i]);
  end;
clrscr;
writeln('Massiv;');
for i:=1 to n do
write(a[i],' ');
writeln;
k:=0;
d:=a[2]-a[1];{шаг или разность прогрессии}
for i:=3 to n do{начнем с 3его}
if a[i]-a[i-1]<>d then{если шаг не выдерживается}
  begin
    k:=1;{фиксируем}
    write('No!');{сообщаем}
    readln;{читаем}
    exit;{заканчиваем}
  end;
if k=0 then write('Yes!');{если дошли до конца и шаг выдерживается}
readln
end.

uses crt;
const n=50;
var x,y,z:array[1..n]of integer;
    i,ny,nz,smx,smy,smz:integer;
begin
clrscr;
randomize;
writeln('Massiv X:');
smx:=0;
for i:=1 to n do
  begin
   x[i]:=random(10);
   write(x[i],' ');
   smx:=smx+x[i];{считаем сумму}
  end;
writeln;
writeln;
ny:=0;ny:=0;smy:=0;smz:=0;
for i:=1 to n do
if odd(i) then{если индекс нечетный}
  begin
   nz:=nz+1;{делаем массив Z}
   z[nz]:=x[i];
   smz:=smz+z[nz];
  end
else{если четный}
  begin
   ny:=ny+1;{массив Y}
   y[ny]:=x[i];
   smy:=smy+y[ny];
  end;
writeln('Massiv Y:');
for i:=1 to ny do
write(y[i],' ');
writeln;
writeln;
writeln('Massiv Z:');
for i:=1 to nz do
write(z[i],' ');
writeln;
writeln;
writeln('Summa v massive X=',smx);
writeln('Summa v massive Y=',smy);
writeln('Summa v massive Z=',smz);
readln
end.

Var a : array [1..size] of longint;
      i, j , k, n  : longint;
Begin 
 For i:=1 to 50 do Read(a[i]);
 
 i:=1; 
 While (a[i]=(i*(i+1)) div 2) and (i<n+1)do inc(i);
 
 if i=n+1 then Writeln('Yes') 
 else Writeln('No'); 
 
end.

Var a : array [1..50] of longint;
      y,z : array [1..25] of longint;
      i, j , k, n  : longint;
Begin 
 Read(n);
 For i:=1 to n do Read(a[i]);
 
 k:=1;
 for i:=1 to n do
   if i and 1 = 0 then Begin 
                               y[k]:=a[i];
                               inc(k);
                            end;
  else z[k]:=a[i];
 
 
 For i:=1 to 24 do Write(y[i],' ');
 Writeln(y[25]);  
 
 For i:=1 to 24 do Write(z[i],' ');
 Writeln(z[25]);  
end.