Даны катеты прямоугольника a и b. найти его гипотенузу с и периметр p

Var
a,b,p,g:real;
begin
Read(a,b);
g:= sqrt(a*a+b*b);
p:=2*(a+b);
Writeln(g, ' ', p);// гипотенуза & периметр
end.