Program perimetr;
var a,b,P: integer;
begin
writeln('Введите длину и ширину: ');
readln(a,b);
P:=(a+b)*2;
writeln('P=2*(',a,'+',b,')=',P);
end.
Program perimetr;
var a,b,P: integer;
begin
writeln('Введите длину и ширину: ');
readln(a,b);
P:=(a+b)*2;
writeln('P=2*(',a,'+',b,')=',P);
end.