Вычисление катета прямоугольного треугольника. (Паскаль)

Program h; Var a,b:real; Begin Writeln ('Введите длину гипотенузы'); Readln(a); Writeln('Введите длину катета'); Readln(b); a:= sqrt (a*a-b*b);Writeln(' Длина катета', ' ', b); End.