Задача на pascal(цикл)

[SkuLLL]

Составить программу для вычисления значения функции при различных допустимых значениях аргумента F(x)=ctg(x/3)+sin(x), A=45градусов, B=90, M=10
Есть набросок токо не пашет, надо доделать, но не знаю как((

Program cikl;
var a,rez,n:real;
b,m,i:integer;
begin
a:=45;
b:=90;
m:=10;
n:=(b-a)/(m-1);
for i:=(a<=b) to
begin
a:= a+n;
rez:=cos(x/3)/(sin(x/3))+sin(x);
writeln(rez:6:2);
end;
readln;
end.

[Stilet]

Program cikl;
var b,a,rez,n:real;
m:integer;
begin
a:=45;
b:=90;
m:=10;
n:=(b-a)/(m-1);
while a<=b do  a:= a+n; rez:=cos(a/3)/(sin(a/3))+sin(a); writeln(rez:6:2);
readln;
end.

Смысл поправки ясен?
P.S. Не проверял

[SkuLLL]

Спасибо большое!

[rubius2008]

Сообщение от Stilet

...
while a<=b do  a:= a+n; rez:=cos(a/3)/(sin(a/3))+sin(a); writeln(rez:6:2);
...

begin-end подзабыли.