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

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

так какое?

они одинаковы

просто во втором понятнее

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