Нужны коды к заданиями в Паскале

[Novenkaja]

ребята спасибо всем,кто откликнулся,но уже не надо)))
мне помогли)))
осталось только немного отредактировать один код и дело в шляпе)))

ещё раз всем спасибо