Home02':

1. Присвоить целой переменной h третью от конца цифру в записи положительного целого числа k (например, если k=130985, то h=9).

2. Целой переменной s присвоить сумму цифр трехзначного целого числа k.

3. Переписать программу нахождения расстояние между двумя точками в двухмерном пространстве для трехмерного случая.

var
  x1,y1 : real; { координаты первой точки }
  x2,y2 : real; { координаты второй точки }
  r :real; { расстояние между точками }
begin
 write('Введите координаты первой точки:');
 readln(x1, y1);
 write('Введите координаты второй точки:');
 readln(x2, y2);
 r:=sgrt(sgr(x1-x2)+sgr(y1-y2));
 writeln('растояние равно:', r);
end;

4. Напишите программу: вычислить катет и радиус вписанной окружности прямоугольного треугольника, зная его гипотенузу и второй катет.