Язык Паскаль. Нужен результат.

Это не ответ, просто рекомендация, можете кидать жалобу, но я надеюсь, что автор увидит и ему станет решать подобные задания проще. Можно скачать паскаль на компьютер или телефон, можно даже не скачивая найти интерпретатор паскаля в браузере, вводить туда любую программу, алгоритм и получать ответ, не прилагая никаких усилий, не считая усилия на набор кода