Напишите программу на языке Pascal


Разведчики-математики для того, чтобы опознать своих, используют числовые

пароли. Услышав число-пароль, разведчик должен возвести его в квадрат и

сказать в ответ первую цифры дробной части полученного числа. Напишите

программу, которая по полученному паролю (вещественному числу) вычисляет

число-ответ.

Пример:

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

Ответ: 6

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