Написать программу вычисления периметра прямоугольника со сторонами А и В- Pascal(Паскаль)

program prim2;
   uses crt;
{Описываем переменные.}
   var a, b, p: real;
begin
{Производим очистку экрана.}
   clrscr;
{Присваиваем переменным значения.}
   a:=8;
   b:=21;
{Вычисляем периметр прямоугольника.}
   p:=(a+b)*2;
{Выводим значения периметра на экран.}
write('p=' ,p);
end. {обязательный оператор}