Составить 4 проги

[Alekzinder]

Помогите пожалуйста(
1)Составить программу для определения количества простых чисел из промежутка [1;n] . Использовать функцию, проверяющую является ли число простым.
Function PROST(n:integer):boolean;
Var i: integer;
Begin
i:=1;
Repeat
i:=i+1;
until n mod i=0;
If i=n then PROST:=TRUE
else PROST:=FALSE;
End;
функция определения простого числа есть а вот дальше не получается(
2)Составить программу, которая проверяет, сколько существует треугольников с предлагаемыми длинами сторон a, b, c, d, e. Использовать неравенство треугольника.
вообще не понял к чему d и e
3)Отрезок АВ разбит на четыре равные части. Найти координаты точек деления, если . Вычисление координат середины отрезка оформить в виде подпрограммы-процедуры.
4)Вычислить Z=(sign(x)+sign(y))∙sign(x+y), где -функция определения знака числа, принимающая значение 1, если число а- положительное; -1, если число а- отрицательное; 0 – при а=0.
К 4 задаче я код написал он считает но походу там не правильно все))
Program zadanie1;
var sign,z,x,y:real;
begin
readln(x,y);
if (x>0)and(y>0)
then sign:=1;
if (x<0)and(y<0)
then sign:=-1;
if (x=0)and(y=0)
then sign:=0;
z:=(sign*(x)+sign*(y)*sign*(x+y));
writeln('z= ', z);
readln;
end.

[BDA]

1) Цикл от 1 до n. Если число простое, то увеличиваем счетчик.
2) Есть 5 чисел, из них берутся любые три, и проверяется, можно ли из них построить треугольник.
3) Процедура "получает" координаты 2 точек и возвращает через аргументы координаты середины. Середина - x = (x1 + x2)/2 и y = (y1 + y2)/2.
4)

var
  z, x, y: real;
function sign(a: real): real;
begin
    if a > 0 then
        sign := 1
    else if a < 0 then
        sign := -1
    else
        sign := 0;
end;
begin
    readln(x, y);
    z := (sign(x) + sign(y)) * sign(x + y);
    writeln('z= ', z:0:0);
    readln;
end.

[interacia]

1)

program Z1;
var
N,x:integer;
 j:integer;
 b:boolean;
 Function PROST(n:integer):boolean;
 Var i: integer;
 Begin
 i:=1;
 Repeat
 i:=i+1;
 until n mod i=0;
 If i=n then PROST:=TRUE
 else PROST:=FALSE;
 End;
 
begin
 x:=1;
 j:=2;
 Write('Vvedite N=');
 readln(N);
While j<n do
 begin
  if PROST(j) then
    begin
     inc(x);
    end;
inc(j);
end;
 Write('Otvet:',x);
end.

[interacia]

2)
Проверить существования треугольника можно таким выражением

If ( ((a+b)>c)and((c+b)>a)and((a+c)>b) ) then //  код по подсчету количества

Из условия задачи нужно проверить следующие комбинации треугольников.
A B C
A B D
A B E
A D E
A D C
A C E
E C D
E C B
B C D
B D E

[Alekzinder]

Спасибо большое