Написать программу заполняющую целочисленный массив из 10 элементов…

Program Zadacha; Var a: Array [1… 10] of Integer; i: Integer; BeginRandomize; For i: =1 To 5 Doa[i]: =Random (10); For i: =6 To 10 Doa[i]: =Random (10) — 10; WriteLn ('Результат: '); For i: =1 To 10 DoWriteLn (a[i]); ReadLn; End.