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


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

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

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

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

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

Пример:

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

Ответ: 6

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

Легче лёгкого:

program abc;

var

i:real;

s:string;

Begin

readLn(i);

i:= frac(i*i);

str(i,s);

write(s[3]);

End.