переделать с Паскаля на С

[Vetal_1715]

Переделать с Паскаля на С программу

Program P1;
var a:array[1..256] of integer;
i,n,p: integer
begin
readln(n);
for i:=1 to n do readln(a[i]);
P:=0;
for i:= to n do
if i mod 2=0 then if a[i] mod 2=0 then
begin
writeln(a[i]);
P:=p+1;
end;
if p>n then ('нету');
end.

[Helloween]

#include <stdio.h>

int main()
{   
  int arr[256];
  int i,n,p;
  scanf("%d",&n);
  for(int i = 0;i<n;i++)
   scanf("%d",&arr[i]);
  p = 0;
  for(int i = 0;i<n;i++)
  {
    if(i%2 == 0)
     if(arr[i]%2 == 0)
	 {
      printf("%d\n",arr[i]); 
	  p++;
	 }
  }
  if(p>n) printf("%s","нету");	   
}

[Vetal_1715]

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