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

Program asd;
USES crt;
var p,s,c,a,b:real;
BEGIN
clrscr;
Writeln('Введите сторону À: ');
Readln(A);
Writeln('Введите сторону B: ');
Readln(B);
Writeln('Введите сторону C: ');
Readln(C);
P:=(a+b+c)/2;
S:=SQRT(p*(p*a)*(p*b)*(p*c));
Writeln('S:= ',s:2:2);
Writeln('P:= ',p);
END.