Question

2 номер пожалуйста на паскале

Answer 1

var k1, k2, k3, k4, g12, g34, P12, P34: real;
begin 
readln(k1, k2, k3, k4);
g12:=sqrt(sqr(k1)+sqr(k2));
g34:=sqrt(sqr(k3)+sqr(k4));
P12:=k1+k2+g12;
P34:=k3+k4+g34;
if P12=P34 then writeln (P34:4:2)
else if P12>P34 then writeln ('P 1-го больше на ', P12-P34:4:2)
else writeln ('P 2-го больше на ', P34-P12:4:2);
readln;
end.

k1, k2 - катеты 1-го треугольника 
k3, k4 - катеты 2-го треугольника 
g12 - гипотенуза 1-го треугольника 
g34 - гипотенуза 2-го треугольника
P12 - периметр  1-го треугольника
P34 - периметр  2-го треугольника