Написать программу для вычисления периметра прямоугольника со сторонами а,d (линейные программы Паскаля)
Program BiFi; Var a,d:real; Begin readln(a); readln(d); writeln('P=',2*(a+d)); readln; end.