Программу надо написать на языке pascal. Дан массив A[20] заполнить его случайными…

program mass; var A: array [1… 30] of integer; i, max1, max2: integer; begin randomize; for i: =1 to 30 do A[ i ]: =random (20); max1: =A[1]; max2: =A[2]; for i: =3 to 30 do if A[ i ]> max2 then if A[ i ] > max1 then begin max2: =max1; max1: =A[ i ]; end else max2: =A[ i ]; write ("Второй максимум равен ", max2);