Здравствуйте,помогите пожалуйста!

[Acrotrixer]

Добрый день,у меня последний день практики завтра,прошу помочь с задачами,если вам не сложно,вот и сами они:
1)Оформите пожалуйста дизаин приложения,и выполнить ребуемые преобразования для нахождения значений функций
s=ln(y в степени - корень |x| )(x- y/2)+sin в квадрате arctg(z) при x=-15,246;y=4,642*10 в - второй степени;z=20,001*10 в квадрате
2)Вывести на печать название дня недели,соответсвующие заданному числу D при условии,что в месяце 31 день и первое число-понедельник
3)Создание приложения циклического алгоритма Создать приложение для вычисления (1+1/2 в квадрате)(2+1/3 в квадрате)...(1+1/(n-1)в квадрате(1+1/n в квадрате),если число n вводится с клавиатуры.

Спасибо огромное за ранее,выручили

[Serge_Bliznykov]

задача 2. (ввод D организуете самостоятельно):

const 
  DayOfWeek : array[0..6] of string[12] =
  ('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресение');
var
   D : integer;
begin
  for D:=1 to 31 do
    WriteLn(D,' - ',DayOfWeek[(D-1) mod 7]);
end.

[Anatole]

3

(1+1/2 в квадрате)

Уточните что именно в квадрате.

var n,i Integer;
begin
Write(' n=);
readln(n);
for i := 2 to n do
Writeln(i:3,sqr(1+1/i));
end;

[Acrotrixer]

(1+1
_
2 в квадрате,двойка в квадрате,и все это в скобках,спасибо

[Anatole]

тогда поправь строчку для вывода

Writeln(i:3,(1+1/i/i));

[Acrotrixer]

спасибо большое вам!еще бы одну задачку...под номером 1