Вычислить значение функции с шагом(Delphi-консольное приложение

[ZX Spectrum-128]

Ввод а и b сделайте до цикла. У вас а,b =0, цикл НЕ выполняется.

[MATTT]

ввел до форма задерживает ввожу значение и она сразу исчезает,ничего не могу понять

 SysUtils;

var
  a, b, h: real;
  x, y: real;

begin
    readln(a,b,h);
  x := a;
  while x < b do
  begin
  y := ((sin(x)*sin(x))/((x*x)-4))+((cos(x)*cos(x)))/((x-3)*(x-5));
   X:=x+h;
   writeln(x,y);



end;

[ZX Spectrum-128]

Она компилироваться не должна. Отсутствует uses и последний еnd

[type_Oleg]

Чтобы не сразу, напишите вот так

 Writeln(x,y);
 Readln;

Readln; - ожидает нажатия любой клавиши, и уже потом закрывается

[ZX Spectrum-128]

Сразу после readln(a,b,h); закрывается? Какие значения вводите? А должно быть меньше b, a шаг примерно равен 0.1

[MATTT]

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

[type_Oleg]

Расширенный режим. Управление вложениями.

[ZX Spectrum-128]

Расширенный режим, управление вложениями, загрузить файл

[MATTT]

вроде бы так

[Stilet]

вроде бы так

И что на картинке тебя смущает?