program p; function func (var ch : char): string; const ss : array [1..4] of string=('nord','west','east','south'); var k,i : integer; begin for i:=1 to 4 do if pos(ch,ss[i])<>0 then k:=i; if k<>0 then write(ss[k]) else write('Не существует такой стороны света'); end; var ch : char; begin read(ch); func(ch); end.