Напишите что делает программа по пунктам Program gt;var a:array 1..1000 of Шко