Напиши код на паскале, который будет возводить введённое число в квадрат а в ответ записывать первую дробную цифру после запятой. например: 1.92 это введённое число, ответ 6 так как 1.92 в квадрате 3.684.....

program SquareAndDecimal; var число, квадрат: real; дробная_часть: integer; begin readln(число); квадрат := число * число; дробная_часть := trunc((квадрат - trunc(квадрат)) * 10); writeln(дробная_часть); end.