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

Программа для нахождения P и S для прям. треугольника
var a,b,c:Real;
begin
Read(a,b);//считываем a и b стороны
c:= sqrt(a*a+b*b);//по теореме пифагора находим c
WriteLn('P = '+(a+b+c));//периметр
WriteLn('S = '+a/2*b);//площадь
end.