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

Program qq;
var a,b:real;
begin
writeln('vvedite kateti');
readln(a,b);
writeln(sqrt(a*a+b*b):2:2);
readln;
readln;
end.
вроде так, но точно не уверен