Я думаю что статическая модель.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (a, b, c):= ReadReal3('a, b, c =');
var p:=(a + b + c)/2;
Writeln('S = ',sqrt(p*(p - a)*(p - b)*(p - c)):0:5);
end.
Две страницы текста, т.к. 28800 бит = 3600 байт.
Замечание: предполагается, то точки не лежат на осях координат.
var x1,y1,x2,y2:real;
begin
readln(x1,y1);
readln(x2,y2);
if (x1*x2>0)and(y1*y2>0) then writeln('YES')
else writeln('NO');
end.
Пример:
3 3
5 1
YES