Додано (19.05.2008, 12:46)
---------------------------------------------
Анрей, пиши, если не так.

Function MK(a11,a12,b1,a21,a22,b2:real; var x,y:real):boolean;
var d,d1,d2:real;
begin
MK:=true;
d:=a11*a22-a12*a21;
writeln(d);
if d<>0 then
begin
d1:=b1*a22-b2*a12;
d2:=a11*b2-a21*b1;
x:=d1/d;
y:=d2/d
end else MK:=false
end;

Function D(x1,y1,x2,y2:real):real;
begin
d:=sqrt(sqr(x2-x1)+sqr(y2-y1))
end;

begin
readln(a1,b1,c1);
readln(a2,b2,c2);
readln(a3,b3,c3);
if (MK(a1,b1,c1,a2,b2,c2,x1,y1)) and
(MK(a3,b3,c3,a2,b2,c2,x2,y2)) and
(MK(a1,b1,c1,a3,b3,c3,x3,y3)) then
begin
a:=d(x1,y1,x2,y2);
b:=d(x2,y2,x3,y3);
c:=d(x3,y3,x1,y1);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s)
end else writeln('no')
end.

sqrt(x) - это квадратный корень из x
sqr(x) - x в квадрате.

Остальное - математика. например, sqrt( (x2-x1)^2+(y2-y1)^2 ) - это расстояние между точками (x1, y1) и (x2, y2) -- теорема Пифагора.

Додано (30.10.2008, 13:58)
---------------------------------------------
Господа, олимпиада на носу, а ветка молчит.

program dilnik;
uses crt;
var n,k,s,i:integer;
begin
clrscr;
write('n=');readln(n);
s:=trunc(sqrt(n));
k:=1;
for i:=2 to s do
if n mod i=0 then inc(k);
if s=sqrt(n) then k:=2*k-1 else k:=2*k;
writeln ('k=',k);
end.

program dilnik;
uses crt;
var n,s,m,d,i:integer;
begin
clrscr;
write('n=');readln(n);
write('dil ',n,':');
s:=trunc(sqrt(n));
for i:=1 to s do begin
m:=n mod i; d:=n div i;
if m=0 then if i<>d then write(i,', ',d,', ') else write(i);
end;
end.

Щоправда, якщо дільники потрібно вивести впорядковано, то цей варіант може і не бути оптимальним.

Ще одне запитання, як можна в паскалі, і чи можна це, написати функцію x в степені y, якщо x<0. Зрозуміло не використовуючи цикл.

Function Pow(x,y:real):real;
begin
if x>0 then Pow:=exp(y*ln(x)) else
if x<0 then Pow:=-exp(y*ln(-x)) else
Pow:=0
end;