Ответ в приложении
_________
===== PascalABC.NET =====
procedure Tri(a, b: real; var c, S, P: real);
begin
c := Sqrt(a * a + b * b);
S := 0.5 * a * b;
P := a + b + c
end;
begin
var (a, b) := ReadReal2('Введите длинв катетов:');
var c, S, P: real;
Tri(a, b, c, S, P);
Writeln('Гипотенуза ', c:0:3, ', площадь ', S:0:3,
', периметр ', P:0:3)
end.
<em>1 Килобайт, как известно, содержит 8192 бита.</em>
Var
ch, otvet, i: longint;
begin
for i := 1 to 5 do
begin
ReadLn(ch);
otvet := otvet + ch;
end;
WriteLn(otvet);
end