Поставьте программу для вычисления периметра прямоугольника

var p,a,b:integer;beginwriteln ('Введите стороны прямоугольника a и b');readln (a,b);p:=(a+b)*2;writeln ('Периметр прямоугольника равен ',p);end.