Составить программу для вычисления по формуле p=2(a+b). (паскаль)

var
  a, b: real;

begin
  readln(a, b);
  writeln(2 * (a + b));
end.

Program pr; var a,b,p:integer; begin write('a='); readln(a); write('b='); readln(b); p:=2*(a+b); writeln('p=',p); end.