Ля это ж легко, если на бейсике напишу в паскаль перевести сможешь?