Построить таблицу значений функции

var x:integer;
    y: real;
begin
write('x = '); readln(x);
if x>0 then y:=sin(2*x);
if x<0 then y:=x*x*x*x;
if x=0 then y:=1;
writeln('y = ', y:3:3);
readln;
end.

uses
  crt;
const
  a=-5;
  b=5;
  h=0.2;
  n=10;
var
  i: integer;
  x,y,j: real;
begin
  clrscr;
  i:=0;
  j:=a;
  writeln('__________________________');
  writeln('| N p/p ||   X   ||   Y   |');
  while j<=b do
  begin
    inc(i);
    writeln('__________________________');
    y:=(cos(j))/(1+ABS(j));
    writeln('|   ',i,'   || ',j:5:2,' || ',y:5:2,' |');
    j:=j+h;
    if i mod 10 = 0 then
    begin
      writeln('Najmite lyubuyu klavishu...');
      readkey;
      clrscr;
      writeln('___________________________');
      writeln('| N p/p  ||   X   ||   Y   |');
    end;
  end;
  readkey;
end.

sum:=0;
n:=4;
repeat
sum:=sum+1/n;
n:=n+4;
until 1/n <= 0.005;

sum:=0;
n:=4;
while 1/n > 0.005 do
begin sum:=sum+1/n;
      n:=n+4;
end;

var x,y,z,N,M,K,L:real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
N:=x*y-x-y; {в скобках у синуса}
M:=x+y-x*y; {степень тройки}
{возводим тройку в степень}
if M>0 then K:=exp(M*ln(3));
if M<0 then K:=exp(-M*ln(1/3));
if M=0 then K:=1;
L:=sin(N)*sin(N); {синус в квадрате}
z:=L-K;
writeln('N = ',n:3:3);
writeln('M = ',m:3:3);
writeln('K = ',k:3:3);
writeln('L = ',l:3:3); 
write('z = ',z:3:3);
readln;
end.