Выполнить задание из лекции(программирование 2 курс)

Паскаль, Си, Бейсик. Имеется лекция, задания простые, нужно срочно.
– вот лекция нужно выполнить ОАП 8