подпрограмма-функция, выведите таблицу значений Опции

[bestscooter]

Пожалуйста помогите написать подпрограмму-функцию, решающую следующую задачу:

выведите таблицу значений функции y=f(x). Таблица должна иметь две колонки: в первую заносятся значения xi, а во второю – yi.
f(x)=cos sqrt(2x), xi=a+((b-a)/n)*i; i=0,1,2.....n; n,a,b- вводятся с клавиатуры

[BlackShadow]

Если не поздо ещё...

Код

Function f(x:Double):Double;
Begin
 f:=Cos(Sqrt(2*x))
End;

Var
 a,b,x:Double;
 i,n:Integer;

Begin
 Write('Enter a: ');
 ReadLn(a);
 Write('Enter b: ');
 ReadLn(b);
 Write('Enter n: ');
 ReadLn(n);
 For i:=0 To n Do
 Begin
   Write(x:5:5);
   Write('|');
   WriteLn(f(x):5:5)
 End
End.

x:=a+((b-a)/n)*i;