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

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