Решение задачи Array 117

#include <stdio.h>
int main(void)
{
    int a[10], b[10];
    int n;
    printf("N: ");
    scanf("%i",&n);
 
    int i;
    for (i=0; i<n; ++i){
        printf("a[%i] : ",i+1);
        scanf("%i",&a[i]);
    }
 
    int k=1;
    b[0]=0;
    b[k]=a[1];
    for (i=1;i<n;++i){
        ++k;
        if (a[i-1]!=a[i]){
            b[k]=0;
            ++k;
        }
        b[k]=a[i];
    }
 
    for (i=0; i<=k;++i) a[i]=b[i];
 
    for (i=0; i<=k;++i) printf("  %i : %i\n",i+1,a[i]);
    return 0;
}

program Array117;
uses
  SysUtils;
 
var
 a,b : array [1..20] of real;
 N,i,k: integer;
 
begin
 Write('N: ');
 Readln(N);
 
 Writeln('A: ');
 for i:=1 to N do
  begin
   write(i,' :');
   readln(a[i]);
  end;
 
 b[1]:=0;
 k:=2;
 b[k]:=a[1];
 
 for i:=2 to N do
  begin
   inc(k);
   if a[i-1]<>a[i] then
    begin
     b[k]:=0;
     inc(k);
    end;
   b[k]:=a[i];
  end;
 
  a:=b;
 
 for i:=1 to k do writeln(a[i]);
end.