№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.