Найти площадь и периметр прямоугольника , если известно его ширина а, а длина b в 3 раза больше ширины

begin 
  var a:=ReadInteger('Введите ширину: ');
  Writeln('P=',2*(a+a*3),', S=',a*a*3);
end.


Введите ширину:  2
P=16, S=12