K0tIIsuSa Program kil;
Var a,b,p:real;
Begin
Writeln('a=');
Readln(a);
Writeln('b=');
Readln(b);
P:=2*(a+b);
Writeln('Периметр прямоугольника=',p);
End.