Помогите составить 2 программы в паскале, до вечера пожалуйсто.!

Это простая геометрия при чем тут паскаль и программирование?? ?

const
n=3
var
minus:boolean;
a:array[1..n] of real;
i:integer;
begin
minus:=false;
for i 1 to n do
begin
read(a [ i ])
if a[ i ] < 0 then begin minus:=true; write(a [ i ]); end;
end;
if minus = false then writeln ('отрицательных нет');
end.

1.

readln(a,b,c);
p:=a+b+c;
pp:=p/2;
s:=sqrt(pp*(pp-a)*(pp-b)*(pp-c));

2.

readln(a,b,c);
if a < 0 then writeln(a);
if b < 0 then writeln(b);
if c < 0 then writeln(c);
if (a >= 0) and (b >= 0) and (c >= 0) then writeln('Все неотрицательные! ');

Так очевидно же.
Составь алгоритм, а потом спрашивай про код.