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

//PascalABC.NET//Версия 3.3. сборка 1583 (25.11.2017)begin   var a:=ReadInteger('Введите ширину: ');  Writeln('P=',2*(a+a*3),', S=',a*a*3);end.Пример:Введите ширину:  2P=16, S=12