Составите периметр комнаты прямоугольника на языке паскаль

Var a,b,c:real;
Begin
   Write('Введите длину стороны а и b: '); readln(a,b);
c:=a+b*2;
writeln('Периметр комнаты равен: ',c );
End.