Пожалуйста решите задачу по информатике: Дано положительное действительное число X. Выведите его первую цифру после десятичной точки. При решении этой задачи нельзя пользоваться условной инструкцией и циклом. В Pascal ABC или в Pascal 2.6.2(или в приблизительно в той версии) или в Python 3.4(или приблизительно в той версии)

var x: real;
begin 
    writeln(Введите число x: ); 
    read(x); 
    writeln(trunc(x * 10) mod 10);
end.