>>1289328
се, человече, сиди ентер жмя, и из мрака и пыли генерируются имена б-жьи
program ordochao;var a,b:array[1..79,1..24]of integer;i,s,x,y:integer;begin
for x:=1 to 79 do begin a[x,1]:=0;a[x,24]:=0;end;
for y:=2 to 23 do begin a[1,y]:=0;a[79,y]:=0;end;
randomize; for y:=2 to 23 do for x:=2 to 78 do a[x,y]:=random(2);
for i:=1 to 20 do begin
for y:=1 to 24 do writeln
(a[1,y],a[2,y],a[3,y],a[4,y],a[5,y],a[6,y],a[7,y],a[8,y],a[9,y],a[10,y],
a[11,y],a[12,y],a[13,y],a[14,y],a[15,y],a[16,y],a[17,y],a[18,y],a[19,y],a[20,y],
a[21,y],a[22,y],a[23,y],a[24,y],a[25,y],a[26,y],a[27,y],a[28,y],a[29,y],a[30,y],
a[31,y],a[32,y],a[33,y],a[34,y],a[35,y],a[36,y],a[37,y],a[38,y],a[39,y],a[40,y],
a[41,y],a[42,y],a[43,y],a[44,y],a[45,y],a[46,y],a[47,y],a[48,y],a[49,y],a[50,y],
a[51,y],a[52,y],a[53,y],a[54,y],a[55,y],a[56,y],a[57,y],a[58,y],a[59,y],a[60,y],
a[61,y],a[62,y],a[63,y],a[64,y],a[65,y],a[66,y],a[67,y],a[68,y],a[69,y],a[70,y],
a[71,y],a[72,y],a[73,y],a[74,y],a[75,y],a[76,y],a[77,y],a[78,y],a[79,y]);
readln;
for y:=1 to 24 do for x:=1 to 79 do b[x,y]:=a[x,y];
for y:=2 to 23 do for x:=2 to 78 do begin
s:=b[x,y-1]+b[x-1,y]+b[x+1,y]+b[x,y+1]+
b[x-1,y-1]+b[x+1,y-1]+b[x-1,y+1]+b[x+1,y+1];
if s<=3 then a[x,y]:=0;
if s>=5 then a[x,y]:=1;end;
end;
end.