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

var a,b, P: real; begin write('vvedite dlini storon pramougolnika'); readln(a,b); P:=2*(a+b); write('P = ',P); readln; end.