Технический форум - Вычислить количество значений функции

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

Вычислить количество значений функции

вычислить количество значений функции sin(x),лежащих вне заданного интервала (y1;y2)
Вот вроде сделал...есть ошибки.проверьте пожалуйста и скажите, что неверно

program enem4;
Function f(x:real):real;
begin
end;
var x,x0,xn,hx,y1,y2:real;
s:integer;
begin
writeln('Введите диапазон исследования функции, шаг и интервал(x0,xn,hx,y1,y2):');
readln(x0,xn,hx,y1,y2);
writeln('Таблица значений функции(оператор while)');
x:=x0;
s:=0;
while x<=xn+hx/2 do
begin
writeln('x=',x:5:2,'y=',f(x):8:3);
if (f(x)<y1) and (f(x)>y2) then
s:=s+1;
x:=x+hx;
end;
writeln('Количество значений функции принадлежащих интервалу (y1;y2) равно:');
writeln;
writeln('Таблица значений функции(оператор repeat):');
x:=x0
s:=0
repeat
begin
writeln('x=',x:5:2,'y=',f(x):8:3);
if (f(x)<y1) and (f(x)>y2) then
s:=s+1;
x:=x+hx;
end;
until x>xn+hx/2
writeln('Количество значений функции принадлежащих интервалу (y1;y2) равно:'s);
end.

заранее спасибо!

Ошибки чисто синтаксиса.
если программа вычисляет все правильно, то вот код:

Код:

program enem4;

uses crt;

Function f(x:real):real;

begin

end;

var x,x0,xn,hx,y1,y2:real;

s:integer;

begin

writeln('Ââåäèòå äèàïàçîí èññëåäîâàíèÿ ôóíêöèè, øàã è èíòåðâàë(x0,xn,hx,y1,y2):');

readln(x0,xn,hx,y1,y2);

writeln('Òàáëèöà çíà÷åíèé ôóíêöèè(îïåðàòîð while)');

x:=x0;

s:=0;

while x<=xn+hx/2 do

begin

writeln('x=',x:5:2,'y=',f(x):8:3);

if (f(x)<y1) and (f(x)>y2) then

s:=s+1;

x:=x+hx;

end;

writeln('Êîëè÷åñòâî çíà÷åíèé ôóíêöèè ïðèíàäëåæàùèõ èíòåðâàëó (y1;y2) ðàâíî:');

writeln;

writeln('Òàáëèöà çíà÷åíèé ôóíêöèè(îïåðàòîð repeat):');

x:=x0;

s:=0;

repeat

begin

writeln('x=',x:5:2,'y=',f(x):8:3);

if (f(x)<y1) and (f(x)>y2) then

s:=s+1;

x:=x+hx;

end;

until x>xn+hx/2;

writeln('Êîëè÷åñòâî çíà÷åíèé ôóíêöèè ïðèíàäëåæàùèõ èíòåðâàëó (y1;y2) ðàâíî:',s);

end.

Ты бы описал, что такое x0,xn,hn.