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

Программа на Паскаль будет такая:Program perimetr;var a, b: integer;beginread(a); {чтение значения а}b:=a-3;{значение другой стороны меньше от вводимого на 3}a:=2*a+2*b; {формула периметра прямоугольника}writeln(a);{ввод значения а в формулу}end.