Периметр найти программа паскаль