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