Guys, please help me solve the problem in Pascal. Everything seems to be simple, but I don’t remember anything myself. Thanks :(