Question

с двумя проблемами 1) поставила цикл while включительно до 2, но он считает только до 1,9
2) поставила условие, чтобы при 1,3 выводилось число а, но он выводит число, которое получается при использовании десятичного логарифма
Программа
program Task3;
var x,a,y:real;
begin
a:=0.5;
x:=0.8;
while x<=2 do
begin
if x<>1.3 then
if x<1.3 then
y:=pi*x-(7/power(x,2))
else
y:=(ln(x+7*power(x,0.5)))/ln(10)
else
y:=a;
writeln(x,' ',y);
x:=x+0.1;
end;
end.