Найти площадь трехугольника по формуле герона.значение вводится клавиатура

Var       a, b, c, p: real; begin       readln(a, b, c);       p : = 0.5 * (a + b + c);       writeln('s = ', sqrt(p * (p - a) * (p - b) * (p - ; end.

П2 -> п1 -> п0 -> + + 2 / п3 ^ ип2 - * ип3 ип1 - * ип3 ип0 - * квкор с/п

Г) по моему так но это не точно

Голова пройдёт в любую форточку

Program Program;
var a, b, c, d: Integer;
begin
readln(a, b, c, d);
if a<b and a<c and a<d then
begin
writeln(a);
end;
if b<a and b<c and c<d then
begin
writeln(b);
end;
if d<a and d<b and d<c then
begin
writeln(d);
end
else
begin
writeln(c);
end;
end.