program PerimetrRect;

var
a, b, Perimetr: real;

begin
write('Введите длину стороны a: ');
readln(a);

write('Введите длину стороны b: ');
readln(b);

Perimetr := 2 * (a + b);

writeln('Периметр прямоугольника = ', Perimetr:0:2);

end.