Написать программу для вычисления периметра прямоугольника со сторонами а,d (линейные программы паскаля)

Program BiFi;
Var a,d:real;
Begin
readln(a);
readln(d);
writeln('P=',2*(a+d));
readln;
end.