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

{Обозначим периметр буквой Р, тогда Р =(А+В)*2. Составим программу при конкретных значениях А и В. Пусть А = 8,В = 21.}


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