Извините пожалуйста за назойливость creer. Дело в том,что Паскаль не выдает мне ответа.А преподователь сказал,что должно получиться 1 число.Не подскажете в чем может быть дело?!Прошу прощения еще раз.