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

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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.