Нужно сделать это в паскале: найти периметр прямоугольника со сторонами a и в

Program perimetr;
Var a,b,P:integer;
begin
writeln('введите значения a и b');
read(a,b);
P:=2*(a+b);
write(P);
end.