Написать подпрогрпмму, распознающую полные квадраты - Turbo Pascal

Формулировка задачи:

Написать подпрогрпмму, распознающую полные квадраты. Очень срочно

Решение задачи: «Написать подпрогрпмму, распознающую полные квадраты»

Листинг программы

uses crt;
function kvd(n:integer):boolean;
begin
kvd:=sqr(trunc(sqrt(n)))=n
end;
var n:integer;
begin
clrscr;
repeat
write('Введите ццелое неотрицательное число n=');
readln(n);
until n>=0;
if kvd(n) then write('Это полный квадрат')
else write('Это не полный квадрат');
readln
end.

Объяснение кода листинга программы

В начале кода используется библиотека crt, которая является стандартной для языка Turbo Pascal.
Функция kvd принимает целочисленный аргумент n и возвращает логическое значение true, если n является полным квадратом, и false в противном случае.
Внутри функции sqr вычисляется квадратный корень из n, а затем функция trunc обрезает его до ближайшего целого числа.
Затем выполняется сравнение sqr(trunc(sqrt(n))) = n. Если это условие истинно, то n является полным квадратом, и функция kvd возвращает true. В противном случае возвращается false.
Переменная n инициализируется значением, введенным пользователем в ходе выполнения программы.
В основной части программы экран очищается с помощью функции clrscr.
Затем начинается цикл repeat-until, который продолжается до тех пор, пока введенное пользователем значение n больше или равно нулю.
Внутри цикла пользователю предлагается ввести неотрицательное целое число.
Если введенное значение является полным квадратом, программа выводит сообщение Это полный квадрат. В противном случае выводится сообщение Это не полный квадрат.
После окончания цикла программа завершается вызовом функции readln для чтения пользовательского ввода.