Вычислить катет и площадь прямоугольного треугольника,если известны гипотенуза и второй катет. с помощью программы паскаль.

Помогите пожалуйста,никак не пойму эту программу.

program by_Relhem;var a,b,c,S:real;beginwriteln ('Введите гипотенузу и катет, разделяя их пробелом');read (a,b);if a>b thenc:=sqrt(sqr(a)-sqr(b));if b>a thenc:=sqrt(sqr(b)-sqr(a));S:=0.5*(a*b);writeln ('Катет: ',c, ' Площадь: ',S);end.