Разработайте программу вычисления периметра прямоугольника. Если известно, что его длина на 3 см больше ширины

Var  P,dlina,shirina:real;begin   writeln(Введите длину);   readln(dlina);   shirina:=dlina+3;   P:=dlina*2+shirina*2;   writeln(Периметр равен ,P);end.