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

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