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

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.