Осуществить ввод элементов

Program Euler;
Uses Crt;
Var
 xn,xk,yn,h,x,y:real;
 i:integer;
 
Function f(x,y:real):real;
begin
 {Здесь приводим выражение для вычисления функции f(x,y) }
 f:=y-x;
end;
 
Begin
 ClrScr;
 Writeln(' Решение дифференциального уравнения ');
 Writeln(' y`=y-x методом Эйлера ');
  { Ввод исходных данных }
 Writeln(' Введите начало отрезка ');
 Readln(xn);
 Writeln(' Введите конец отрезка ');
 Readln(xk);
 Writeln(' Введите шаг ');
 Readln(h);
 Writeln(' Введите начальное значение y ');
 Readln( yn);
{ xn:=0; yn:=1.5; xk:=1.5; h:=0.25;}
  { Выводим шапку таблицы и первую точку }
 Writeln(' -------------------');
 Writeln('| № |   x  |   y    |');
 Writeln(' -------------------');
  { Начинаем расчет }
 x:=xn; y:=yn; i:=1;
 Writeln('|', i:2, ' |', x:5:2, ' |', y:7:4, ' |');
 repeat
   y:=y+h*f(x,y);
   i:=i+1;
   x:=x+h;
   Writeln('|', i:2, ' |', x:5:2, ' |', y:7:4, ' |');
   until x>xk-h;
 Writeln(' -------------------');
 Readln;
End.