где косяк помогитеprogram i_2;const c=2; f=4;g=6; var r: real;beginwriteln(039;определение

В таком виде программка, желая бы запустится:
program i_2;
const c=2; f=4; g=6;
var r,p: real;
begin
writeln('определение площади треугольника по теореми Герона');
write('нахождение площади');
readln(r);
p:=(c+f+g)/2;
r:=sqrt(p*(p-c)*(p-f)*(p-g))
end.

Но есть куча вопросов:
1) Если c, f, g - стороны треугольника, то что такое - r ? 
2) Если r - это площадь, то как мы можем её ввести, если мы желаем её сосчитать?
3) Где вывод приобретенной инфы (writeln(r))?
4) Треугольника со сторонами c=2, f=4 и g=6 существовать не может

Предлагаю отрешиться от экзотичных обозначений и сделать проверку на существование треугольника, а также добавить получение данных по граням от юзера:
program i_2;
var a,b,c,p,s: real;
begin
writeln('Определение площади треугольника по теореме Герона');
write('Введите стороны треугольника: ');
readln(a,b,c);
if (a + b lt;= c) or (b + c lt;= a) or (a + c lt;= b) then writeln ('Треугольника с
такими гранями не существует')
else
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника одинакова ',s:0:3)
end
end.