Разветвляющийся алгоритм,циклический алгоритм и Многомерные массивы (Pascal)

[TrapperPTZ]

Прошу помочь в выполнении данных заданий, раньше с паскалем не сталкивался. Буду очень благодарен.
Задачи расписывать не стал скинул в текстовом виде во вложении так как очень много текста и пояснений.


Скажите если что не правильно по 1 задаче :

Var 
 A,B,C,X,P:real;
Begin
 P:=3.14;
 A:=sqrt(sqrt(2p*x)+3.5(x*x)-10);
 B:=sqr(cos(abs(2p-6*x+1)));
 writeln('vvedite X');
 readln(x);
 If B=0 then
    writeln('rashet nevozmozhen, v znamenatele 0');
 else
     Begin
   C:=a/b;
  writeln(c)'
     end
end.

[zmey31313]

474-166-465 или dmi83206389@mail.ru думаю договоримся...