Паскаль. массивы. Опции

[aigulia]

Помогите написать программы на Паскале! Сама в этом не разбираюсь, по этому прошу вашей помощи! Заранее спасибо!!

1. Если уравнение ax2 + bx + c = 0 (a не равно 0) имеет вещественные корни, то логической переменной t присвоить значение true, а переменным x1 и x2 – сами корни, иначе же переменной t присвоить false, а значения переменных x1и x2 не менять.
2. Дано 50 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к какому-нибудь целому числу.
3. Дано натуральное k. Напечатать k-ю цифру последовательности 1234567891011121314…, в которой выписаны подряд все натуральные числа.
4.Даны целые числа x1, x2, …, x55. Вычислить величину
x1(x2+x3)(x4+x5+x6)(x7+x8+x9+x10)…( x46+x47+…+x55).

[Lapp]

Во 2-й задаче, TarasBer, ты несколько не понял условие.. Нужно искать число, максимально близкое к любому (не важно, какому именно) целому.

Млжно примерно вот так:

  for i:=1 to 50 do a[i]:=Random*100;    {задаем массив вещественных чисел от 0 до 100}
  d:=1.0;           {подготавливаем минимальное расстояние}
  for i:=1 to 50 do if Abs(a[i]-Round(a[i]))<d then m:=i;    {поиск}
  WriteLn('самое близкое к целому - число ',a[m],' под номером ',m);   {вывод результата}