Сформируйте одномерный массив из 3 элементов (значения элементов укажет…

Program Massiv; Var a: Array [1… 3] of Integer; i: Integer; BeginWriteLn ('Напишите 3 числа через пробел'); For i: =1 To 3 DoRead (a[i]); For i: =1 To 3 DoWriteLn (a[i]); ReadLn; End.