Mă poate ajuta cineva? (în programul pascal)

program functie;
var
x1,x2,i:integer;
begin
readln(x1);
readln(x2);
for i:=x1 to x2 do
begin
if(i>=4) then
begin
writeln(2*sqrt(i+6));
end
else
begin
writeln(3-abs(i));
end
end
end.