Shkiper2009 тебе бля уже зделали на с++ перведи в паскаль да и всё)
(ну или обратись в соответствующий раздел)