Напишите программу. Даны стороны прямоугольника а и b. Найти его периметр

Program ;Var P,a,b: Real;Begin Writeln('Введите стороны прямоугольника. '); Write('Введите сторону a: '); Readln(a); Write('Введите сторону b: '); Readln(b); P:=2*(a+b); Writeln('Периметр прямоугольника равен: ',P);end.