Протабулировать функцию

uses crt;
var y, x: real;
    i: integer;
Begin
for i:=1 to 100 do
if x<Pi/2 then begin
y:=x-sin(x)/cos(x);
x:=x+Pi/10;
Writeln ('x=',x:0:4,';  ','y=',y:0:4);
end;
readln
end.

s:='гриб';
case k of 
2..4:s:=s+'a';
5..8:s:=s+'ов';
end;
write(k,' ',s);

//1.1 Åñëè çíà÷åííèå ïåðåìåííîé íå ðàâíî 0, òî è ïðè åòîì êîòàíãåíñ îò W< çà 0,5 òî ïàìåíÿòü çíàê â W.
//Åñëè çíà÷åíèå W íå ðàâíî 0, òî ïðèñâîèòü ïåðåìåííîé W çíà÷åíèå 1.
uses crt;
var W,y: real;
begin
Write('Vvedite W='); Readln(W);
if ((W>0) or (W<0)) then
y:=cos(W)/sin(W);
if ((W>0) or (W<0)) and (y<0.5) then W:=-W else W:=1;
Writeln('W=',W);
end.

//1.2 Óçíàòü êîëè÷åñòâî ÷èñåë, ðàâíûõ ïåðâîì ÷èñëó ïîñëåäîâàòåëüíîñòè ïðîèçâîëüíî çàäàííûõ ÷åòûðåõ ÷èñåë.
uses crt;
var a: array [1..4] of real;
    i,k: integer;
    n: real;
begin
k:=1;
Writeln('Ââåäèòå 4 ÷èñëà');
for i:=1 to 4 do
Readln (a[i]);
n:=a[1];
for i:=2 to 4 do
if a[i]= n then k:=k+1;
Writeln('k=',k);
end.

//1.3 Äëÿ öåëîãî ÷èñëà N îò 1 äî 8 íàïå÷àòàòü ôðàçó "Ìû íàøëè N ãðèáîâ", ñîãëàñîâàâ îêîí÷àíèå ñëîâà "ãðèá".
uses crt;
var s: string [30];
    k, n: integer;
begin
Write ('Ââåäèòå ÷èñëî îò 1 äî 8; N='); Readln(N);
s:='ãðèá';
case n of
2..4:s:=s+'a';
5..8:s:=s+'îâ';
end;
write(n,' ',s);
end.