Вот так будет с вашим условием !!!!
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!
begin
var Y:=0.0;
var i:=-1.0;
while i<=1 do<br>
begin
Y:=log(sin(2*pi/3));
Writeln('Y=',Y:0:4,' ',i:0:4);
i:=i+0.02;
end;
end.