Вычислить площадь равностороннего треугольника вписанного в окружность радиуса

Var r,a,b,c:integer;    s:real;beginA:=10;B:=10;C:=10;writeln('Ведите радиус окружности:');readln(r);S:=a+b+c/4*r;writeln('Площадь треугольника равна:',s);end.значение радиуса вводится с клавиатуры,если он постоянный можно добавить константу.