Паскаль. Написать программу для нахождения площади прямоугольника. формулы y1=(x+y)/3-t

Program lol;

Var a, b, c, s, p:real;

begin

write('Введите длины трех сторон треугольника: ');

readln(a,b,c);

p := (a + b + c) / 2;

s := sqrt(p * (p-a) * (p-b) * (p-c));

writeln('Площадь тр-ка S = ', s);

end.