Для того чтобы опознать своих, математики используют числовые пароли. Услышав число-пароль, математик должен возвести его в квадрат и сказать в ответ первую цифры дробной части полученного числа. Напишите программу, которая по полученному паролю (вещественному числу) вычисляет число-ответ. Пример:

Введите пароль: 1.92

ответ: 6

(потому что 1,922 = 3, 6 864…, первая цифра дробной части – 6).

В Pascal. Желательно, чтоб я просто скопировал, вставил в программу и она работала.