Помогите написать код на паскаль лазарус

помогите пж решить любую из этих задач на Паскаль.
среда Лазарус
нужно очень срочно.
буду крайне благодарен