Помогите с решением задач в Pascal

Program B_7;
Uses Crt;
Var
a:array [1..23,1..17] of real;
i,j:integer;
begin
Clrscr;
writeln('Для вывода матрицы нажмите любую клавишу! ');
readkey;
for i:=1 to 23 do
begin
for j:=1 to 17 do
begin
a[i,j]:= 1/(i+j);
write(a[i,j]:6:4,' ')
end;
writeln;
writeln;
end;
readkey;
end.

program number7;
 const n=23;
         k=17;
var i,j: integer;
     arr: array [1..n,1..k] of real;
begin
    for i := 1 to n do begin
       for j := 1 to k do begin
         arr[i,j] := 1/(i+j);
         write ('A = ',arr[i,j]);
         if j = k then writeln
       end;
    end;
 readln;
end.

program number4;
var n : integer;
begin
write ('Введите n:  '); readln n;
if (n>9) and (n<100) then n:=n*10
else if (n>99) and (n<1000) and ((n div 10) mod 10)<>0) then n:= (n mod 100)*10+(n div 100)
else writeln "Число не попадает в диапазон"
writeln n;
readln;
end.

program number1;
const n = 9; \\ Размер квадратной матрицы
var i,j: integer;
    k,b: integer;
    arr: array [1..n,1..n] of byte;
begin
   { write ('Vvedite N');
    readln (n);}

    for i := 1 to n do begin
      for j := 1 to n do begin
       arr[i,j] := 1;
      end;
    end;
 if n mod 2 = 0 then writeln ('V etoi matrice posredine diagonali nevozmozhno postavit "0"')
   else begin
      k := round(n/2+0.5);
      b := round(n/2+0.5);
      arr[k,b] := 0 ;
      for i := 1 to n do begin
        for j := 1 to n do begin
          write (' ',arr[i,j]);
          if j = n then writeln
        end;
      end;
   end;
 readln;
end.

if x<=1 then 
    y:=abs(x) 
else if x>2 then 
    y:=5-2*x 
else 
    y:=1;

// Если предположить, что верхняя точка всего рисунка имеет значение -1 по х тогда получаем.
program number2;
var x,y : real;
begin
write ('Введите x:  '); readln x;
write ('Введите y:  '); readln y;
if (x>=-2) and (x<1) then
	if ((y>=(x-1)/3) and (y<=1))then
		if (x<=-1)and(y<=(2*x+3)) or ((x>-1) and (x<0) and (y<=abs(x))) or (x>=0 and y<=0) then 
				y1=1;
if y1=1 then
writeln ('Точка попадает в  заданную область');
else
writeln ('Точка не попадает в  заданную область');
readln;
end.

Program number2;
var x,y,y1 : real;
begin
write ('Введите x:  ');
readln (x);
write ('Введите y:  ');
readln (y);
if (x>=-2) and (x<1) then
	if ((y>=(x-1)/3) and (y<=1)) then
	if (x<=-1) and (y<=(2*x+3)) or ((x>-1) and (x<0) and (y<=abs(x))) or (x>=0) and (y<=0) then
	y1:=1;
if y1=1 then
writeln ('’Точка попадает в  заданную область.')

else
writeln ('’Точка не попадает в  заданную область.');
readln;
end.

Program lab2;
const L=-1; R=1; T=0.25;
var x,y,z:real; kol:real; flag:boolean;
Begin
     write('Vvedite y=');
     readln(y);
     x:=L; flag:=false;
     While (x<=R) do
Begin
     write(x:12:4);
     if abs(sin(x))>10e-10 then
     z:=((x+y+1)/(sin(x)*sin(y))*(ln(x+y)/2));
     writeln(y:12:4);
     x:=x+T;
     if trunc (z) mod 2=0 then
     begin
     if flag=false then
     begin if (z)>0 then
     flag:=true;
     kol:=z;
end;
end;
end;
if flag=true then
writeln('kol-vo=', kol:12:4)
else writeln('net takih');
readln;
End.