Вычислить значение выражения

Program Lab3;
const H=0.5;
Xmin=-3;
Xmax=3;
Var D,t,x,x1,x2,y:real;
Begin
D:=sqr(0.3)-4*48*t;
While (D=sqr(0.3)-4*48*t) do
Begin
x:=Xmin;
Repeat
If D>0 Then
begin x1:=(-48+sqrt(D))/(2*0.3);
x2:=(-48-sqrt(D))/(2*0.3);
Writeln ('x1=', x1:7:2, 'x2=', x2:7:2);
end
Else
If D=0 Then
begin x1:=-48/(2*0.3);
Writeln ('x=', x1:7:2);
end
else writeln ('êîðíåé íåò!!!');
x:=x+H
until x>=Xmax;
y:=arctan(x1/x2)+sqrt(sqr(x1)+sqr(x2))*cos(0.05*x2);
Writeln ('y=', y:7:2);
end;
end.

uses crt;
procedure Korni(t:real;var x1,x2:real;var f:boolean);
var d:real;
begin
f:=true;
d:=48*48+4*0.3*t;
if d<0 then f:=false
else if d=0 then
 begin
  x1:=(48+sqrt(d))/0.6;
  x2:=x1;
 end
else
 begin
  x1:=(48+sqrt(d))/0.6;
  x2:=(48-sqrt(d))/0.6;
 end;
end;
function Arctg(x1,x2:real):real;
begin
if x2=0 then
 begin
  if x1<0 then Arctg:=-pi/2;
  if x1>0 then Arctg:=pi/2;
 end
else Arctg:=arctan(x1/x2);
end;
var x1,x2,y,t,h:real;
    f:boolean;
begin
h:=0.5;
t:=-3;
while t<=3+h/2 do
 begin
  Korni(t,x1,x2,f);
  if not f then writeln('t=',t:4:1,' решений нет')
  else
   begin
    y:=Arctg(x1,x2)+sqrt(x1*x1+x2*x2)*cos(0.05*x2);
    writeln('t=',t:4:1,'  x1=',x1:6:3,'  x2=',x2:6:3,'  y=',y:6:3);
   end;
  t:=t+h;
 end;
end.