Помогите пожалуйста с паскалем!

вот так определишь площадь
{
uses crt;
var a,b,c:real;
square1,square2,square3:real;
function square(d:real):real;
var poluperim:real;
begin
poluperim:=(d*3)/2;
result:=sqrt(poluperim*(poluperim-d)*3)
end;
begin
writeln('a');
readln(a);
writeln('b');
readln(b);
writeln('c');
readln(c);
square1:=square(a);
square2:=square(b);
square3:=square(c);
end;}

Тут мона подумать чисто логическим мышлением . сначала нужно взять 3 результата нахождения площади потом вывести их на сравнения и через через иф зен елсе вывести результат.... если не справитесь обращайтесь за полным решением

Тупая задачка.. . Но как девушке можно:
Program NAME;
Uses crt;
Var a,b,c,S1,S2,S3 :Real;
Function Func(i: Real) :Real;
Begin
Func:=(i*i*sqrt(3))/4;
End;
Begin
Write("Введите стороны: ");
Read(a,b,c);
S1:=Func(a);
S2:=Func(b);
S3:=Func(c);
if S1>S2 and S1>S3 Then Write("Больший тот, у которого сторона a");
if S2>S1 and S2>S1 Then Write("Больший тот, у которого сторона b");
if S3>S2 and S3>S1 Then Write("Больший тот, у которого сторона c");
{ПРИМЕРНО ТАКЖЕ ПЕРЕБРАТЬ И НАЙТИ МЕНЬШИЙ - а то ответ в форму не лезет}
Readkey;
End.
В общем здесь тупейший алгоритм сортировки.. . И если я не ошибся то всё получается так...

program qwerty

function ploshad_treugolnika(a,b,c:real):real;
begin
ploshad_treugolnika:=_непомню формулу площади_
end;

var
a,b,c:real;
i:integer;
s,min,max:real;

begin
for i:=1 to 3 do
begin
write('vvedite storonu A'); readln(a);
write('vvedite storonu B'); readln(b);
write('vvedite storonu C'); readln(c);

s:=ploshad_treugolnika(a,b,c);
if i=1 then begin min:=s; max:=s; end
else
begin
if maxs then min:=s;
end
end;

writeln('MIN:',min:2);
writeln('MAX:',max:2);

end.

вообщем как то так должно быть