Pascal 2 задачи

1. Присвоить целой переменной d первую цифру из дробной части положительного вещественного числа х (так, если x=32.597, то d=5)
2. Вычислить расстояние между точками с координатами (x1, y1) и (x2, y2). Координаты ввести с клавиатуры попарно и присвоить переменным вещественного типа. Вывести результат на экран в виде числа с двумя знаками после запятой.