View difference between Paste ID: tnaZanRb and kmhiCPv0

 type mas=array[0..1000,0..1000] of longint;
-     vector=array[0..1000,0..1000] of char;
+    vector=array[0..1000,0..1000] of char;
-var a:vector; b:mas;
+var
-    ii,jj,i,j,n,k,f,l:longint;s:string;x,c,c1:char;
+   a:vector;
    b:mas;
    ii,jj,i,j,n,k,f,l:longint;
    s:string;
-   if aa>bb then max:=aa else max:=bb;
+   x,c,c1:char;
 
 function max(aa,bb:longint):longint;
 begin
- readln (n);     k:=0;  c:='f';
+  if aa>bb then
- for i := 1 to n do
+      max:=aa
-  begin
+  else
       max:=bb;
-    for j := 1 to n do  begin read(x);a[i,j]:=x;if x=c then k:=k+1;c:=x;
+
-                        end; readln;
+
-   end;
+
 readln(n);
-   readln(s);
+for i := 1 to n do begin
   for j := 1 to n do begin
-  if n*n-1=k then
+    read(x);
-   begin
+    a[i,j]:=x;
-   f:=1;
+ end; readln;
-     for I := 1 to n do
+
-       f:=(f*i) mod 1000003;
+readln(s);
-       writeln(f)
+b[1,1]:=1;
-   end   else
+
-   begin
+for i := 1 to n do
   for j := 1 to n do
-    c:=s[1];
+    if a[i,j]=s[i+j-1] then begin
-    c1:=s[2*n-1];
+          b[i+1,j]:=(b[i+1,j]+b[i,j])mod 1000003;
- if (a[1,1]<>c)or (a[n,n]<>c1) then  writeln(0) ELSE
+          b[i,j+1]:=(b[i,j+1]+b[i,j])mod 1000003;
     end;
-   b[1,1]:=1;
+
-   for I := 2 to n do
+writeln(b[n,n] mod 1000003);
-     begin
+
-     if (a[1,i]=s[i]) and (b[1,i-1]<>0) then  b[1,i]:=1;
+