Выполните программу и найдите ответ

Используйте Паскаль он-лайн
https://rextester.com/l/pascal_online_compiler

​