Найти и исправить ошибки в коде

program Kalyn_lab4_1 ;
const
x=3.241;
var
y,a:real ;
 
 
begin
a:=1.15;
 
while a<6.3 do
begin
y:=(arctan(a*a+x*x))/(a*exp(x/2));
if (y>1.5) and (y<2.3) then
 
writeln ('y=',y:6:2);
 
a:=a+0.1;
 
end;
 
 
end.

y:=(arctan(a*a+x*x))/(a*exp(x/2));
if (y>1.5) and (y<2.3) then
 
writeln ('y=',y:6:2);
 
a:=a+0.1;

y:=(arctan(a*a+x*x))/(a*exp(x/2));

0.255667678765087
0.235478536076185
0.218290087939408
0.203479823824387
0.190585947541238
0.17925869059744
0.169228314765243
0.160283489198895
0.152256318152954
0.145011748652649
0.138439932386105
0.132450623021277
0.12696900292486
0.121932531128395
0.117288532412555
0.112992331922493
0.109005796599376
0.105296183626118
0.10183522312771
0.098598381431187
0.0955642648100243
0.0927141334882567
0.0900315028858674
0.0875018144154345
0.0851121621193846
0.0828510644369153
0.0807082726707345
0.0786746094726878
0.0767418320186401
0.0749025155946634
0.0731499541407167
0.0714780749480092
0.0698813652220448
0.0683548086350379
0.0668938303217858
0.0654942490396143
0.0641522354290947
0.0628642754882316
0.0616271385168183
0.0604378489059798
0.059293661245538
0.0581920383026895
0.0571306314926998
0.0561072635184027
0.0551199129022443
0.0541667001740523
0.0532458755109471
0.0523558076539031
0.0514949739492865
0.0506619513839452
0.0498554084996906
0.0490740980877705

program Kalyn_lab4_1 ;
const x=3.241;
var y,a:real;
    k:byte;
begin
a:=1.15;
k:=0;
while a<6.3 do
 begin
  y:=(arctan(a*a+x*x))/(a*exp(x/2));
  if (y>1.5) and (y<2.3) then
   begin
    k:=1;
    writeln ('y=',y:6:2);
   end;
  a:=a+0.1;
 end;
if k=0 then write('Нет значений в интервале (1.5;2.3)')
end.