Что ту не так я написал? уже пробовал писать разными способами

1)Program ti;

uses crt;

var m,n,X,Xk,h,i:integer;

Y:real;

const t=1e-9;

Begin

Writeln('Vvedite Xn,Xk i h');

Writeln('Xn');

read(X);

Writeln('Xk');

read(Xk);

Writeln('H');

read(h);

m:=x;

n:=Xk;

Repeat

begin

While
X