Работа в Паскале. 1) Определить минимум из двух различных чисел. (усл.алгоритма) 2) Вычислить расстояние между двумя точками на прямой r=(Xa-Xb) Xa;Xb - коор-т. точки A и B 3) Найти значение гипотенузы в прямоуг. треугольнике ...

1) var   a,b:integer; begin   write('Введите 2 числа: ');   read(a,b);   if a>b        then             write('Первое число больше второго')        else           write('Второе число больше первого'); end. 2) var     a,b:real; begin  write('Введите координаты X точек: ');  read(a,b);  write('Расстояние между точками = ', abs(a-b)); end. 3) var    a,b:real; begin  write('Введите значения катетов: ');  read(a,b); write('Гипотенуза равна ', sqrt(sqr(a)+sqr(b))); end.