Решить задачу по Паскаль

[gum_classis]

Помогите пожалуйста очень надо , и прошу просто так флудить и репу минусовать ненадо

1.Сколько слагаемых должно быть в сумме 1+1/2+1/3+1/4+...+1/n,чтобы эта сумма оказалась больше 5?;
2.Запишите условия,истинные,когда точка с координатами (х,у)лежит точно
на прямой,показанной на (рис. 4а),выше этой прямой (рис. 4б)и ниже этой прямой(рис 4в):
[Ссылки могут видеть только зарегистрированные и активированные пользователи]


[Ссылки могут видеть только зарегистрированные и активированные пользователи]


[Ссылки могут видеть только зарегистрированные и активированные пользователи]

3.20 сентября 1519 года флотилия во главе с Магелланом вышла из порта Санлукар-де-Баррамеда(устье реки Гвадалквивир)
6сентября 1522 года "Виктории" встречали рассвет?
4.Написать программу,которая запрашивает четыри числа и выводит их в порядке возрастания
ПРИМЕР:
8 3 19 11
3 8 11 19
5.Элементы равностороннего треугольника пронумерованны следующим оброзом:1-сторона(а),2-радиус вписанной окружнасти (R1),3-радиус элементов и его значение.Вывести значения остальных элементов данного треугольника (в том же порядке).
(Написать программу на языке Паскаль)

[VeTaL_UA]

1.Сколько слагаемых должно быть в сумме 1+1/2+1/3+1/4+...+1/n,чтобы эта сумма оказалась больше 5?;
33 раза.
var i:real; j:integer; //Объявляем переменные
begin //Начинаем код программы
i:=1; //Присваиваем i значение
j:=1; //Присваиваем j значение
repeat //Повторяем действия, что ниже
i:=i+(1/j);
j:=j+1;
until//Пока i не будет больше пяти
i>5;
j:=j+1; //Добавляем единицу, к количеству сложений
writeln(j); //Выводим на экран результат
sleep(3000); //Ждем 3 секунды
end. //Заканчиваем программу

[Dinmaite[Work]]

Собственно вчера залить не удалось, так что залью сегодня.

[VeTaL_UA]

4.Написать программу,которая запрашивает четыри числа и выводит их в порядке возрастания
ПРИМЕР:
8 3 19 11
3 8 11 19
var a,b,c,d:integer; M:array[0..50] of integer;
begin
writeln('Enter:');
for a:=1 to 4 do
read(M[a]);
for a:=2 to 4 do
for b:=4 downto a do
if M[b-1]>M[b] then
begin
c:=M[b-1];
M[b-1]:=M[b];
M[b]:=c
end;
writeln('Result:');
for a:=1 to 4 do
writeln(M[a]);
Sleep(3000);
end.