rogram z845;

uses crt;

const a:array[1..4,1..4] of integer= ((1,11,4,7), (5,9,2,10), (7,6,4,2),

(3,1,4,5)); const n=4;

var i,j,s:integer;

BEGIN

clrscr;

for i:=1 to n do

begin for j:=1 to n do write(a[i,j]:5); writeln; end;

Writeln ('vv s');

readln(s);

for i:=1 to n do

for j:=1 to n do

if ((i-j<0) and (j+i<n+1)) or ((i-j>0) and (i-j>n+1)) and(s=a[i,j])

then begin writeln('est'); i:=n+1; end;

if ((i-j>0) and(i+j<n+1)) or ((i-j<0) and(i-j>n+1)) and (s<>a[i,j]) then begin writeln('net');

i:=n+1; end;

END.