с помощью линии ну или кривой дезье можно но проще всего инструмента многоугольника
Var
y:real;
n:integer;
Begin
y:=0;
For n:= 4 to 20 do
y:=y+1/(n+1);
WriteLn('y = ',y);
End.
Информационный вес одного символа 8 бит = 1 байт.
Информационный объем текста = 9 Кбайт = 9216 байт.
9216 байт/1 байт = 9216 символов в тексте.
Вычислим, сколько символов на 1 странице: 9216/6 = 1536 символов на странице.
Вычислим, сколько строк на странице: 1536/48 = 32 строки на странице
uses math;
var
a, b, c: Integer;
S, p: Real;
begin
readln(a);
readln(b);
readln(c);
p := (a + b + c) / 2;
S := sqrt(p * (p - a) * (p - b) * (p - c));
writeln(S:0:1);
end.