1.дан прямоугольный треугольник с катетами а и б составьте программу для вычисления гипотенузы с 2. даны длины сторон треугольника. составьте программу для вычисления его площади.

№1. Вычисление гипотенузы прямоугольного треугольника по двум катетам:

program znanija
var 
  a,b: real;
  c: real; 
begin 
  write ('Введите длины катетов.'); 
  readln (a,b); 
  c:=sqrt(a*a+b*b); 
  writeln ('Гипотенуза треугольника равна:', c); 
end. 

№2. Вычисление площади треугольника по длинам сторон:

program znanija
var
  a, b, c, p, s : real;
begin
  write ('Введите длины сторон.');
  read (a, b, c);
  p:=(a + b + c)/2;
  s:=sqrt(p*(p - a)*(p - b)*(p - c));
  writeln ('Площадь треугольника равна:', s);
end.