var a,b, P: real;
begin
write('Введите длины сторон прямоугольника');
readln(a,b);
P:=2*(a+b);
write('P = ',P);
readln;
end.
write
var a,b, P: real;
begin
write('Введите длины сторон прямоугольника');
readln(a,b);
P:=2*(a+b);
write('P = ',P);
readln;
end.
var a,b, P: real;
begin
write
readln(a,b);
P:=2*(a+b);
write('P = ',P);
readln;
end.