Массив помогите информатика

Паскаль:

const

n = 5;

type

mas = array[1 ... n] of integer;

var

a: mas;

i: byte;

begin

writeln ('введите элементы массива') ;

for i:=1 to n do readln (a[i]) ;

writeln ('вывод элементов массива:') ;

for i:=1 to n do write (a[i]:5) ;

end.

Си:

const n 5

int main () {

int mas[n];

int i;

for (i = 0; i < n; i++) {

scanf ("%d", mas[i]) ;

}

return 0;

}