program perime;
var a,b,p:integer;
begin
write('введите длину и ширину');
read(a,b);
P:=(a+b)*2;
writeln('p=',p);
end.
Изменить последнюю строчку чтобы было P=2*(3+4)=14

Program perimetr;

var a,b,P: integer;

begin

writeln('Введите длину и ширину: ');

readln(a,b);

P:=(a+b)*2;

writeln('P=2*(',a,'+',b,')=',P);

end.