Напиште программу вычисления площади прямоугольника (информатика)

Program kil;
Var a,b,p:real;
Begin
Writeln('a=');
Readln(a);
Writeln('b=');
Readln(b);
P:=2*(a+b);
Writeln('Периметр прямоугольника=',p);
End.