составьте программу. водите дробное число в промежутке от 10 до 25.

Для ввода дробного числа нам необходимо будет прописать строчку:
readln(real_numbr);
После того, как программка прочла введенное число и записала его в переменную real_numbr, нам необходимо будет отыскать квадрат этого числа.
Ветхое значение real_numbr нам больше не пригодится, потому новейшую переменную мы создавать не будем:
real_numbr := power(real_numbr, 2);
Для округления числа до целого, пропишем строчку:
real_numbr := round(real_numbr);
Мы выбрали именно round(), поэтому что нам необходимо правильное округление, а не просто отбрасывание дробной доли числа.
Итог:
writeln(real_numbr);