pascalABCNET

помогите найти ошибку в коде
pascalABCNET помогите найти ошибку в коде