Program1.pas(12) : Нельзя преобразовать тип real к integer

Program Logika; 
var x,y,z: real; 
 L,A,B,C:boolean; 
begin 
 cls; 
 // Вводим исходные данные: 
 writeLn('Введите x,y,z'); 
 readLn(x,y,z); 
 // вычисляем промежуточные предикаты: 
 A:= (sin(x)>cos(x)); 
 B:= (abs(y)>= 2*(sqrt(x))); 
 C:= (12 div z <= 6);
 // выводим полученные значения
writeLn('A=',A,' B=',B,' C=',C);
 // вычисляем и выводим результирующий предикат: 
 L:= ((C xor B) and (A or B)) xor B;
 writeLn('L=',L); 
end.

Program Logika;
var 
  x,y,z: real;
  L,A,B,C: boolean;
  
begin
  cls;
 // Вводим исходные данные:
  writeLn('Введите x,y,z');
  readLn(x,y,z);
 // вычисляем промежуточные предикаты:
  A:= (sin(x)>cos(x));
  B:= (abs(y)>= 2*(sqrt(x)));
  C := (int(12 / z) <= 6); //целая часть не превышает 6 
 // выводим полученные значения
  writeLn('A=',A,' B=',B,' C=',C);
 // вычисляем и выводим результирующий предикат:
  L:= ((C xor B) and (A or B)) xor B;
  writeLn('L=',L);
end.

var x,y,z:integer;
Begin
   writeln('введите число:x ');
   readln(x);
   writeln('введите число:y ');
   readln(y);
   
   z:=1+sin (sqrt(abs(y))+1)/cos(sqr(12x) -4)+y 
End.

program p1;
type punct=record
       x,y: integer;
       end;
     tablou=array[1..20] of punct;
 var a: tablou;
 function CALCUL (a:tablou; i,s,n:integer):tablou;
 var x,y: tablou;
 begin
 write('dati cantitatea de numere:');
 readln(n);
 s:=0;
 for i:=1 to n do
 if (x[i]>=0) and (y[i]>=0) then s:=s+1;
 end;
 begin
 write(calcul);
 end.

 if (x[i].x>=0) and (x[i].y>=0) then s:=s+1;

Program bilet;
type bilete = record
     nrbil,pret,starea:integer;
     end;
     var f: file of bilete;
     b: bilete;
     i,n: byte;
     s:real;
     begin
     begin
     write('numarul de bilete:');
     readln(n);
     assign (f,'BILET.TXT');
     rewrite(f);
     for i:= 1 to n do begin
     writeln('biletul', i);
     with b do begin
     write('NRbil:'); readln(nrbil);
     write('pret:'); readln(pret);
     write('starea:'); readln(starea);
     end;
     write(f,b);
     end;
     close(f);
     end;
     assign(f, 'BILET.TXT');
     reset(f);
     while not eof(f) do begin
     read(f,b);
     with b do
     if (starea=1)then s:=nrbil*pret;
     writeln('suma:',s);
     end;
     close(f);
     end.

Const l='--';
Var i,n:integer;
    y,x,x1,a:real;
    dx:string;
Begin
    Repeat
     write('N: ');readln(n);
    Until n<=0;
    write('x1');
    readln(x1);
    write('dx');
    readln(dx);
    write(a);
    readln(a);
    x:=x1;
    writeln(l);
    writeln(' N  |   X    |   Y    |');
    writeln(l);
    For i:=1 to n do
    Begin
      if x>=0 then 
      Begin
        y:=sqrt(exp(3*ln(exp(1/3*ln(4*sqr(A)))) - (exp(1/3*ln(sqr(x+2*A))))));
        writeln('|',i:3,'|',x:7:2,'|',y:7:2,'|');
      End
      else if -sqrt(exp(3*ln(exp(1/3*ln(4*sqr(A)))) - (exp(1/3*ln(sqr(x+2*A)))))) >0 then
      Begin
        y:=-sqrt(exp(3*ln(exp(1/3*ln(4*sqr(A)))) - (exp(1/3*ln(sqr(x+2*A))))));
        writeln('|',i:3,'|',x:7:2,'|',y:7:2,'|');
      End
      else
      Begin
        y:=-sqrt(exp(3*ln(exp(1/3*ln(4*sqr(A)))) - (exp(1/3*ln(sqr(x+2*A))))));
        writeln('|',i:3,'|',x:7:2,'|  null ','|');
      End;
      x:=x+dx;
    End;
    writeln(l);
End.