gip01.PAS

{* Гипотенуза и площадь *}

Unit GIP01;
Interface
Implementation
Begin
 writeln('Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь.');
End.

Program cyb7;

Uses gip01.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  a : real;
  b : real;
  c : real;
  S : real;
Begin
  write('Vvedite dlinu 1 katet:');
  readln(a);
  write('Vvedite dlinu 2 katet');
  readln(b);
  c := Sqrt(Sqr(a) + Sqr(b));
  S := 0.5 * a * b;
  writeln('Gipotenuza treugolnika = ', c);
  writeln('Ploshad treugolnika ravna = ', S);
  readln; {* Ждем подтверждения пользователя *}
End.