Дан катет и гипотенуза прямоугольного треугольника. найти периметр этого треугольника паскаль )

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,c):=ReadReal2();
write('P=',a+sqrt(c*c-a*a)+c);
end.

Var
  a, b, c: real;
Begin
  Write('Введите длину катета: ');
  ReadLn(a);
  Write('Введите длину гипотинузы: ');
  ReadLn(c);
  b := sqrt(c*c - a*a);
  WriteLn('Периметр треугольника: ',a+b+c);
End.