Составьте программу вычисления периметр прямоугольника со сторонами А и В..

var a,b:real;

begin

readln(a,b);

writeln('Perimetr - ',2*(a+b));

end.

Program zadacha;

Var a,b,p: real;

begin

Readln(a,b);

p:=(a+b)*2;

Writeln('Perimetr=',p,);

End.