Помогите написать коды ничего не получается срочно

[Галинкамалинка1998]

Пожалуйста срочно! Помогите написать програмы на паскаль на зачет на завтра:
1) Определить количество трехзначных чисел-палиндромов от А до В.
2)Дано три разных числа, модуль каждого из них не превышает 10 в 9 степени. Определите число, которое равно одному из заданых чисел, но не является ни максимальным ни минимальным из них.
3)Дан прямоугольный паралелепипед с целочисленными длинами ребер. Извесны площади его граней, которые имеют общую вершину. Найти суму длин всех 12 ребер паралелепипеда.

[type_Oleg]

2) - числа целые, или любые?
3) - задача чисто математическая, на систему уравнений. Не пойму, при чем здесь программирование.
Дано:
a*b= ..,
a*c= ..,
b*c= ..
Найти: 4*(a+b+c)

[mifomen]

for i:=a to b do
begin
if i mod 10 = i div 100 then
                        begin
                             c:=c+1;
                             writeln (i);
                        end else ;
end;

Лол "с" твои полиндромы

[Галинкамалинка1998]

1 и 2 задачи - числа целые в двух задачах
3 задача - извесна площадь граней а написать програму нахождения сумы всех сторон