Модуль 3, задание 2

Pascal - https://docs.google.com/spreadsheet/ccc?key=0Avgkcl6fVzNEdGEyWnM5T3NtTTdsTW9leGhUSzgwNmc

Basic - https://docs.google.com/spreadsheet/ccc?key=0Avgkcl6fVzNEdE85bDdyd3BVWEZpOHp2YjVZcHFmYnc