Найти площадь и периметр прямоугольника , если известно его ширина а, а длина 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.

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