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

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


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

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

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

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

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

Пример:

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

Ответ: 6

поэтому что 1,922 = 3,6864, 1-ая цифра дробной доли 6