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

Паскаль:

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 lt; n; i++)

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

return 0 ;