Ксюш,
во-первых, не нужно цепляться к чужим темам: у нас это не принято; отделил Ваш пост, во-вторых, не сочтите за труд и выложите задание полностью (вид функции, что требуется сделать и т.п.), и в-третьих, Вы уверены, что нужно это делать в Pascal ABC, а не в Turbo Pascal, как указано в методичке? Если нужно в ABC, то помочь не смогу: ни тамошних CRT-команд, ни, тем более, графики не знаю. В Turbo ещё можно было бы покрутить.