помогите решить (Паскаль)

а в чем проблема, помогаю бесплатно, все за тебя сделать - 50р на мобилу