Модуль 3. Задание 2.

BASIC:
https://docs.google.com/document/pub?id=1saH15ZciVRZj73Lk6DycUX_qDa9fO6coG278lMcGaMM
PASCAL:
https://docs.google.com/document/pub?id=1v4IqldqWyu27VfFcAu50zfsDJlfGjXjRUhpG6HIgZ_s