Помогите исправить ошибку, пожалуйста

[Alexei18]

Помогите исправить ошибку, пожалуйста

program lab2;
Uses crt;
var x,a,Z,u,Ha,Hx:real;
Function min(b,c:real):real;
begin
If b<c Then min:=b;
min:=c
end;
begin
ha:=1.3;
hx:=1.3;
x:=1;
repeat
a:=2;
repeat
u:=min(sin(a/x)/cos(a/x),x*sin(x*x));
z:=min(a*sqrt(abs(u)),sin(a)/x);
writeln('x=',x:5:2,'a=',a:5:2,'u=',u:5:2)
a:a+ha;
until a>=4;
x:x+hx;
until x>=3;
end.

 

[Alexei18]

a:a+ha;
пишет что ожидался оператор

 

[Лёха!]

а попробуй написать не ha a Ha?у тебя ж в определении переменных написано с большой буквы! конечно я могу ошибаться,но некоторые языки программирования критичны к этому!

 

[Vladimir_S]

a:a+ha; пишет что ожидался оператор

Правильно пишет! Потому что надо
a:=a+ha;
и дальше
x:=x+hx;

а попробуй написать не ha a Ha?у тебя ж в определении переменных написано с большой буквы! конечно я могу ошибаться,но некоторые языки программирования критичны к этому!

Только не Паскаль! Ему это дело пофиг.

 

[Alexei18]

всё получилось, спасибо))