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

const
a =19.6 ;
b =7.8 ;

var
y: real;
x: integer;

begin
x :=14.6 ;
repeat
x:= x + 0.1;
y :=sqrt((a+b*x)/(sqr(ln(x))));
write(' y=', y:4:2, ';')
until x>16



end.

В разделе var ты описываешь х как целое:

x: integer;  

А потом пытаешься присвоить х дробное число:

x :=14.6 ;

Замени x: integer;  на x: real; и будет тебе счастье.