Где косяк помогите

program i_2;

const c=2; f=4; g=6;

var r: real;

begin

writeln ('определение площади треугольника по теореми Герона') ;

write ('нахождение площади') ;

readln (r) ;

r; sqrt (p (p-c) (p-f) (p-g)) ;

p; (c+f+g) ; 2:

end.

В таком виде программа, хотя бы запустится:

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 < = c) or (b + c < = a) or (a + c < = 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.