Составить программу нахождения площади прямоугольника, если известна его длина, а ширина на 3 см меньше

Программа на Паскаль будет такая:

Program perimetr;

var a, b: integer;

begin

read (a); {чтение значения а}

b:=a-3; {значение другой стороны меньше от вводимого на 3}

a:=2*a+2*b; {формула периметра прямоугольника}

writeln (a); {ввод значения а в формулу}

end.