program Perimeter;
var
a, b: Integer;
begin
Write ('Введите стороны прямоугольника: ');
ReadLn (a, b);
WriteLn ('Периметр = ', (a + b) * 2);
ReadLn;
end.
program Perimeter;
var
a, b: Integer;
begin
Write ('Введите стороны прямоугольника: ');
ReadLn (a, b);
WriteLn ('Периметр = ', (a + b) * 2);
ReadLn;
end.