Найти перемитр треугольника и вывести его на экран р=(а+в) перемитр прямоуг.со сторонами а и в

Var a,b,p:integer;
begin
writeln('введите стороны треугольника');
readln(a,b);
p:=(a+b); {но тут с формулой не так, мб 2*(a+b?}
writeln('P= ',p);
end;