Pascal вычисление