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

[QWARTAL]

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

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

[rezak]

Сообщение от QWARTAL

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.

Вроде так.
Лучше бы написал в эту тему. (нажать сюда)

[QWARTAL]

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

[IsXodus]

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