Составьте программу, которая формирует массив из 20 случайных целых чисел, каждое…

program z1; var a: array [1… 20] of integer; i: integer; beginfor i: =1 to 20 doa[i]: =random (30) -15; for i: =1 to 20 dowrite (a[i]); writeln; for i: =1 to 20 doif a[i]<0then write (a[i]); end. Вроде все правильно, но желательно все проверить на программе (у меня удалилась), и ОСОБЕННО проверить строку 7 (там в скобках точно не знаю там 30 или 31 должно быть)