Ввести трехзначное число .вычислить корень квадратный второй цифры(паскаль)

Program n1;
var x,d: integer;
begin
write('введите число: ');
readln(x);
d:= x div 10 mod 10;
writeln(sqrt(d));
end.