Ребят помогите пожалуйста

[QWARTAL]

Привет. прошу вас помочь мне иначе выгонят из института,мне нужно выполнить две задачки на паскале,ну очень нужно и как можно быстрее заранее спасибо
1.Вычислить сумму квадратных корней и корней третьей степени членов натурального ряда в диапазоне от 1 до 37 млн.
2. Если среднее арифмитическое двух введённых с клавиатуры чисел превышает второе из них,то вычислить произведение введённых чисел.В противном случае произвести вычисление их частного

Мужики спасите иначе не наберу баллы и меня выкинут:(

[rezak]

2. Если среднее арифмитическое двух введённых с клавиатуры чисел превышает второе из них,то вычислить произведение введённых чисел.В противном случае произвести вычисление их частного

var a,b,sa,c:real;
begin
readln(a);
readln(b);
sa:=(a+b)/2;
If sa>b then c:=a*b else c:=a/b;
writeln(c:2:2);
readln;
end.
Вроде так.
Лучше бы написал в эту тему. (нажать сюда) (http://www.fifasoccer.ru/forum/showthread.php?t=615&highlight=%D0%E5%F8%E5%E1%ED%E8%EA%E8)

[QWARTAL]

Спасибо тебе,там сейчас ещё отпишусь

[IsXodus]

Ребята, подскажите пожалуйста:
Аналог ShowModal в Дельфи, для С++ Builder 6