Напишите программы. Челики выручайте.

1)program m_1;var a:array[1..10] of integer;j:integer;beginj:=1;while j<=10 do beginreadln(a[j]);j:=j+1;end;end. 2)program m_1;var a:array[1..10] of integer;j:integer;beginfor j:=1 to 10 do  readln(a[j]);end.