Напишите программу, которая вычисляет периметр прямоугольника по двум его сторонам. Заготовка
var ?:integer;
begin
read(?);
s:=???;
write(???):
?

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.