Array pada pascal dan c++

LISTING PROGRAM

array pascal:

uses wincrt;
 
var X : array[1..100] of integer;
a,b,n,r : integer;
beda : boolean;
begin
  write('Banyaknya data : ');readln(n);
  if n > 100 then begin
    writeln('Melebihi batas, (tidak boleh lebih dari 100)');
    exit;
  end;
  for a:=1 to n do begin
    repeat
      r:=random(100)+1;
      b:=1;beda:=true;
      repeat
        if r=x[b] then beda:=false else inc(b);
      until (b>a-1) or (beda=false);
    until (beda);
    x[a]:=r;
  end;
  writeln;
  for a:=1 to n do write(X[a],' ');
end.

Array c++

#include 
int main()
{

    int square[100];
    int i;
    int k;

    for (i = 0; i<10;i++)
    {
        k=i+1;
        square [i] = k*k;
        printf("\n\tPangkat dari %d adalah %d \n",k,square[i]);
    }
        return 0;
}