Найти число по его квадрату - Turbo Pascal

нужно найти число по его квадрату

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

var
  Chislo: integer;
begin
  writeln('Введите квадрат числа: ');
  readln(Chislo);
  writeln(Chislo, ' = ', sqrt(Chislo), ' в квадрате!');
end.

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

Вводится переменная Chislo типа integer (целое число).
Выводится сообщение с просьбой ввести квадрат числа.
Пользователь вводит значение в переменную Chislo.
Вычисляется квадратный корень из введенного значения и сохраняется в переменную Chislo.
Выводится сообщение, содержащее введенное значение и его квадратный корень.