Нахождение длины гипотенузы и площади треугольника - Pascal

Формулировка задачи:

составить программу нахождения длины гипотенузы и площади треугольника если известны катеты по формулам в вложении

Решение задачи: «Нахождение длины гипотенузы и площади треугольника»

Листинг программы

uses crt;
var a,b:integer;
c,s:real;
 
begin
    readln(a,b);
    s:=a*b/2;
    a:=a*a;
    b:=b*b;
    c:=sqrt(a+b);
    write('S= ',s,' C= ',c:4:2);
end.

Объяснение кода листинга программы

В первой строке используются библиотеки crt и math.
Переменные a и b инициализируются целочисленными значениями.
Переменная s инициализируется значением (a*b)/2, что является средним арифметическим a и b.
Переменные a и b затем инициализируются значениями aa и bb соответственно, что является квадратами a и b.
Переменная c инициализируется значением sqrt(a+b), что является гипотенузой прямоугольного треугольника с катетами a и b.
Значения переменных a, b и c выводятся на экран.
Код завершается без ошибок.