Впаскале нужно решить
1 вводятся три разных числа. найти, какое из них является средним (больше одного, но меньше другого). 2. даны катеты прямоугольного треугольника. найти его гипотенузу и площадь.​

1)

var

 x1, x2, x3, sum:integer;

begin

 read(x1, x2 , x3);

 sum:= x1 + x2 + x3;

 sum:= sum - max(max(x1,x2),x3) - min(min(x1,x2),x3);

 write(sum);

end.

2)

var

 a, b  :integer;

 p, hyp:real;

begin

 read(a, b);

 hyp := sqrt(a*a + b*b);

 p := (a*b*0.5);

 writeln('Гипотенуза :', hyp , ' Площадь: ', p);

end.

Объяснение: