тип данных запись (паскаль)

[либерж]

написать программу, в которой осуществляются вычисления периметра прямоугольника. стороны прямоугольника оформить в виде записи.

[Serge_Bliznykov]

type TRecRectangle= record
  H,W : real
end;

var R : TRecRectangle;
begin
  WriteLn('Enter width and height of rectangle: ');
  Readln(R.W, R.H);
  WriteLn(' Perimeter = ', 2*(R.W+R.H):0:2 )
  Readln
end.