Question

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

Answer 1

//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