Sqr pascal