Найти первую цифру дробной части вещественного числа. Например, для числа 54,609 это цифра 6.

• program task_5;
• var a : integer;
• x : real;
• begin
• writeln \('Введите вещественное число '\);
• write \('x = '\);
• readln \(x\);
• a := trunc \(x\*10\);
• write \('Первая цифра дробной части числа = ', a\);
• end.
• a := a mod 10;