Описание кода

[TuuuZ]

Помогите с описанием кода программы. Что бы сдать зачет нужно рассказать, что делает программа. Недетерминированный конечный автомат.
Заранее благодарен.

код

program nka;
const
 P0: array[0..3] of integer = (22, 16, 0, 16);
 P1: array[0..3] of integer = (0, 0, 10, 0);
 m=4;
var
 s, s1, n, i, j: integer;
 str: string;

begin
 writeln('input string:');
 readln(str);
 s:=1;
 n:=length(str);
 for i:=1 to n do begin
  if (str[i]<>'0')and(str[i]<>'1') then begin
   writeln('string is invalid');
   halt
  end;
  s1:=0;
  for j:=0 to m-1 do if (s and (1 shl j))<>0 then begin
   if str[i]='0' then s1:=s1 or P0[j];
   if str[i]='1' then s1:=s1 or P1[j]
  end;
  s:=s1;
 end;
 if (s and (1 shl m))<>0 then  writeln('string is valid') else writeln('string is invalid')
end.

[TuuuZ]

хоть как нибудь помогите

[Loreena.J]

program nka;
//объявляем константы P1 и Р2 равные, соответствующим целочисленным массивам из 4х элементов, и объявляем констану m
const
 P0: array[0..3] of integer = (22, 16, 0, 16); 
 P1: array[0..3] of integer = (0, 0, 10, 0);
 m=4;
//объявляем переменные
var
 s, s1, n, i, j: integer;
 str: string;

begin
 writeln('input string:'); //выводим в консоль надпись 'input string:'
 readln(str); //пишем в консоли нашу строку
 s:=1;
 n:=length(str); // n = длине строки
 for i:=1 to n do begin
// если i-тый элемент строки не равен '0' и '1' то выдать сообщение 'string is invalid', остановить работу и вернуться в операционную систему
  if (str[i]<>'0')and(str[i]<>'1') then begin
   writeln('string is invalid');
   halt
  end;

// в этой части кода мне сейчас некогда разбираться, позже допишу если никто другой не допишет
  s1:=0;
  for j:=0 to m-1 do if (s and (1 shl j))<>0 then begin
   if str[i]='0' then s1:=s1 or P0[j];
   if str[i]='1' then s1:=s1 or P1[j]
  end;
  s:=s1;
 end;
 if (s and (1 shl m))<>0 then  writeln('string is valid') else writeln('string is invalid')
end.

[Loreena.J]

А если ты не понимаешь, что должна делать эта программа, то почитай эту статейку http://www.rsdn.ru/article/alg/nka.xml