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

Program z1;
Var a, b, p, s: real;
Begin
     Writeln(‘b’);
      Readln (a, b);
      P:= 2*(a+b);
      S:=a*b;
      Writeln (p, s);
      Readln;
      End.