Данн массив А, где зарегистрированы игры команды Зимбру 0-ничья 1-выйгрышь…

const A: array [1… 11] of 0… 2=(2, 0, 0, 1, 2, 0, 0, 2, 2, 1, 1); {Задаем константу — массив и сразу же присваиваем значения элементам массива}procedure Display; //Процедура вывода на экранvar Wins, Losses, DeadHeats: integer; {DeadHeats — количество ничьих, Wins — количество выигрышей, Losses — количество проигрышей} i: integer; //Переменная для циклаbegin Wins: =0; Losses: =0; //Обнуляем счетчики DeadHeats: =0; for i: =1 to 11 do //Просматриваем элементы массива begin if A[i]=0 then DeadHeats: =DeadHeats+1; {Если элемент массива=0 то прибавляем 1 к счетчику ничьих и т.д.} if A[i]=1 then Wins: =Wins+1; if A[i]=2 then Losses: =Losses+1; end; writeln ('Количество ничьих: ', DeadHeats); {Выводим количество ничьих, побед и поражений} writeln ('Количество выигрышей: ', Wins); writeln ('Количество проигрышей: ', Losses); end; //Конец процедурыbegin //Начало программы Display; //Вызов процедурыend. //Конец программы