Написать программу для решения задачи в Паскале: «В массиве из десяти…

Uses crt; var i,j,temp: integer; a: array[1… 10] of integer; beginwriteln ('Inouyt elements: '); for i: =1 to 10 doread (a[i]); j: =1; for i: =1 to 10 doif a[i]=0 thenbegintemp: =a[i]; a[i]: =a[j]; a[j]: =temp; inc (j); end; for i: =1 to 10 dowrite (a[i],'); end.