typetj=array[1..4]of shortint;varttj:array[0..256]of tj;jjt:array[0..3,0..3,0..3,0..3]of integer;f:array[0..1,0..256]of longint;n,fir,sec:longint;lastf:array[0..256]of boolean;arr:array[0..1,0..256]of integer;s:array[1..1000000]of shortint;p:array[0..3,0..3,0..3]of shortint;procedure inp;... |