Две программы, значения с шагом и массивы в паскале

[monro86]

Помогите пожалуйста с задачей не могу ума приложить:

1. Для Х, принимающего значения от XN до XK с шагом ∆X,
определить Y. При этом: если x>g, то Y=A; если 0<=x<=g , то Y=B; если x<0, тоY=C.
Значения всех переменных определить по таблице 2.
Результат выдать в форме таблицы значений X и Y.

A	√x+2
B	Log3x
C	-6.89
XN	-12
XK	65
∆X	0.5
G	12.3

2. Сформировать (с помощью функции генератора случайных чисел) массив из К чисел.
Выполнить действия с элементами массива в соответствии с заданием таблицы 3.
Результаты выдать на экран и записать в текстовый файл.

Найти минимальный элемент среди положительных элементов массива

Спасибо!

[monro86]

никто не знает?

[cat.felix]

никто не знает?

ммм... я знаю! Могу помочь не безвозмездно! пишите cat.felix@inbox.ru!
Договоримся!

[9i.]

а к чему именно вы не можете приложить ума, какие-то мысли должны же быть по поводу решения

[monro86]

Ребят, где ошибка?

program zadanie_2;

uses crt;

var X, Xn, Xk : integer;
    Y, G, dX, A, B, C : real;

BEGIN
     clrscr;
     Xn := -12;
     Xk := 65;
     dX := 0.5;
     G := 12.3;
     C := -6.89;
     X := Xn;
     while X <= Xk do begin
           if X < 0 then 
		Y := C(X);
           else if X > G then 
		Y = A(X);
           else 
		Y := B(X);
           write ( X, '  ', Y );
           x := x + dX;
     end;
END.

[Zer0]

Y := C(X);
Почему C(X)? Почему не C? это ведь не функция
Такая же ошибка и в следующих строках
еще - X должно быть real, ведь Вы прибавляете к нему dX, которое целым не является