Что не так?

[shozanah]

Записать по правилам языка программирования заданною формулу. Составить программу вычисления значения по ней для X, принадлежащего отрезку [0,1;0;6] sqrt (exp(2.2*x))-abs(sin((pi*x)/(x+2.3)))+1.7

programe z;
var;
  x,y: real;
begin
  repeat
  writeln('введите x')
  readln(x)
untie(not((x>=0.1) and (x<=0.6)))
y :=sqrt (exp(2.2*x))-abs(sin((pi*x)/(x+2.3)))+1.7
writeln('y=',y)
end.

[DRAgon™]

var
  x,y: real;
begin
  repeat
  writeln('введите x');
  readln(x)
until(not((x>=0.1) and (x<=0.6)));
y :=sqrt (exp(2.2*x))-abs(sin((pi*x)/(x+2.3)))+1.7;
writeln('y=',y)
end.

[Stilet]

programe z;
var;
  x,y: real;
begin
x:=0.1;
repeat
 y :=sqrt (exp(2.2*x))-abs(sin((pi*x)/(x+2.3)))+1.7 ;
 writeln('y=',y);
 x:=x+0.1;
untie(x>=0.6);
end.

Да и потом. Точки с запятыми где?
Текст ошибок где?

[shozanah]

ну кроме того что я везде забыл ;

[ROMA2PVT]

ага и кроме untie и programe

[shozanah]

спасибо, это первое что я пробую сделать) надо учиться)

XD хехе а я блин сидел с час думал че не так

[Stilet]

А вот надо не часами думать а головой.
Тебе компилятор пишет ошибки? Вот читай их переводи если буржуинского не понимаешь и вылавливай в поисковиках что они означают.

[ROMA2PVT]

program z;
var
  x,y: real;
begin
x:=0.1;
while x<=0.6 do
begin
 y :=sqrt (exp(2.2*x))-abs(sin((pi*x)/(x+2.3)))+1.7 ;
 writeln('y=',y);
 x:=x+0.1;
 end;
 readln;
end.

Вот так думаю правельнее будет

[shozanah]

Всем спасибо)