Вывести в протокол работы программы две первые цифры вещественного числа. Например, для числа 67,259 в протокол должно быть выведено 25.

• program task_7;
• var a: integer;
• x: real;
• begin
• writeln \('Введите вещественное число'\);
• write \('x = '\);
• readln \(x\);
• x := frac \(x\) * 100;
• a := trunc \(x\);
• write \(a\)
• end.