Помогите, информатика, нужно написать программу для pascal с этими условиями

A.x:=x+1
Б.x:=3x+1
B.x:=x/2
C.x:=100-x
D.x:=x*2
E.begin
x:=x+1
x:=3x+1
x:=x/2
x:=100-x
x:=x*2
write(x);
end.

приведенную ниже информацию к табличному виду, определив имя таблицы
и название каждого поля: Оля, Петя, 13, пение,
14, баскетбол, Вася, Катя, 13, хоккей,
баскетбол, футбол, 15, 11, Коля, 11, танцы, Сережа.

1.Вводится действительное число x. Вычислить значение функции x^3+(2√(x-2))/(3+x^2 )
Нужно написать программу в Pascal.
2.Написать программу для задачи: вводится двухзначное число, выяснить из одинаковых цифр оно состоит или нет.

Ввести пять чисел и найти наибольшее из них.
Я тут написал кое-что ,но не знаю правильно ли :(
HELP ME.

program ru;
var a,b,c,d,e,max:integer;
begin
writln('Введите пять целых чисел');
if a>b then
begin
max:=a;
end
else begin
max:=b;
end;
if max>c then
begin
max:=max;
else begin
max:=c;
end;
if d>e then begin
max:=d;
end
else begin
max:=e;
end.

1. Написать программу нахождения произведения n чисел.

амеба каждые 3 часа делиться на 2 клетки. Определить, сколько амеб будет через 3,6,9,12 и 24 часа.

3) дано натуральное числоо N и действительное число Х. Вычислить сумму ряда sin(x)+sin(2x)+sin(3x)+...+sin(Nx).

4) написать программу для вычисления n-ой степени числа А.

помогите, пожалуйста)