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

Паскаль:

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;

}