Ввести дробное число. возвести в квадрат дробную часть числа. в паскале!

Вот программка: uses crt; var  n, drob: real; begin   clrscr;   write (' n = ');   readln(n);   drob: =(frac(n)*frac(n));   writeln(' drob^2 =', drob: 8: 4);   readln; end.

Не знаю пишут ли тут готовый код, но я ****** писать его, но попробую схемой.  насчет диапазона я не понял точно, его тебе весь дали или в форме 1-10 или каждое число крч я пишу общее решение а ты уже подумаешь как в твоей ситуации работать 1. берешь все делители числа  что бы сделать это ты узнаешь число и делишь в цикле от 1 и дальше i++, понятное нужны только такие делители про котором остаток будет 0 т.е делаешь проверку на то что бы (% == 0) если равно записываешь число(в массив или какт придумаешь), нет - идешь по циклу дальше проверяешь пока i! =твоему числу (это и нормально цикл намутит и сразу исключит самое число в качестве делителя) если цикл закончился суммируешь всё что достал и проверяешь равна ли эта сумма твоему числу, если да используешь cout а в нем начальное число если нет идешь ко второму и заново схема для такой махинации нужен наверно будет еще 1 цикл поверх этого с проверкой на то что твое число не равно конечному в диапазоне/ надеюсь тебе хотя бы немного.