Составление программ усложненной структуры

[Vadimqa]

Заранее прошу прощение, если написал не в тот форум. Нужно срочно решить такую задачу:

Определить, сколько четных целых чисел лежит в интервале (а, б), где a < sinx^2; b=x^4;x=3

[Shift_sk]

var
i,k:integer;a,b:real;
begin
a:=sin(3*3);
b:=81;
for i:=trunc(a) to trunc(b) do
k:=k+1;
writeln(k);
end.

примерно так!

[Tronix]

Удалите пожалуйста это сообщение.

[Vadimqa]

Очень благодарен, спасибо большое! Можете описать словами, что программа делает?

[Vadimqa]

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

Удалите пожалуйста это сообщение.

Какое именно и почему?