Перевести задачу на паскаль

[Faridik]

Здравствуйте.Нужна задача на Паскале.На джава я ее написал,а паскаль не знаю.Помогите пожалуйста.Вот задача:
Даны натуральные числа n, a1, a2,…, an. Определить количество членов последовательности a1, a2,…, an являющихся квадратами нечетных чисел

Вот код:

int n,i,m;
       n=5;m=0;
       int a[]={4,9,6,25,49};
       for (i=0;i<n;i++)
       {
       if ((int) Math.sqrt(a[i])%2!=0)
            m++;
       }
System.out.println(a[i]);       
}

[Hacker19_90]

[java] = > [pascal]
int n,i,m; =>  n, i, m: integer;
n=5;m=0; => n := 5; m := 0;
int a[]={4,9,6,25,49}; => a: array[1..5] of integer = (4, 9, 6, 25, 49);
for (i=0;i<n;i++) => for i := 1 to n do
{ => begin
if ((int) Math.sqrt(a[i])%2!=0) => if odd(sqrt(a[i])) then
 m++; => Inc(m);
} => end;
System.out.println(a[i]); => Так делать нельзя так как индекс i после цикла не определён!

[Hacker19_90]

Пардон

if ((int) Math.sqrt(a[i])%2!=0) => if odd(sqrt(a[i])) then

надо же округлять
так что так

if odd(round(sqrt(a[i]))) then

[Faridik]

я совсем чуть-чуть помню что там begin,end был.Сейчас уже их не пишут или где они должны быть?