Работа в Паскале.

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.