Составить таблицу для циклического алгоритма и программу для Паскаль

Program z1;Var c,i:integer;BeginRead (n,i);If not(c=2) then For i to 0 dobeginc:=c+1;i:=i-2;end;writeln(n);end.