PASCAL ЛЕГКО И ПРОСТО, БЫСТРО СРОЧНО МОЖНО РЕШИТЬ ЗА МИНТУ
Решайте что за описания
Я хочу посмотреть ваши решения, потому что при WriteLn выдает ошибку