uses crt;
var
a:array [1..8,1..8] of char;
i,j:integer;
x,y:integer;

begin
for i:=1 to 8 do begin
for j:=1 to 8 do
a[i,j]:='0';
end;
writeln ('enter koordinaty ferzya');
read (x,y);
a[x,y]:='F';
for j:=1 to 8 do
if j<>y then a[x,j]:='*';
for i:=1 to 8 do
if i<>x then a[i,y]:='*';
for i:=1 to 8 do
for j:=1 to 8 do begin
if (i<>x) and (j<>y) then begin if j=i+y-x then a[i,j]:='*';
if 8-i=j+y-x-2 then a[i,j]:='*';
end;
end;
for i:=1 to 8 do begin
for j:=1 to 8 do
write (a[i,j],' ');
writeln;
end;
readkey
end.

uses crt;
const
n=8;
var
x,y,i,j:integer;
a:array [1..n,1..n] of char;

begin
clrscr;
for x:=1 to n do
for y:=1 to n do
a[x,y]:='0';
writeln ('enter coordinate horse');
read (x,y);
a[x,y]:='K';
if (x>=3) and (x<=6) and (y>=3) and (y<=6) then begin
{1}a[x-2,y+1]:='*';
{2}a[x-1,y-2]:='*';
{3}a[x+1,y-2]:='*';
{4}a[x+2,y-1]:='*';
{5}a[x+2,y+1]:='*';
{6}a[x+1,y+2]:='*';
{7}a[x-1,y+2]:='*';
{8}a[x-2,y+1]:='*';
end;
if (x>=3) and (y>=3) and (y<=6) then begin
{1}a[x-2,y+1]:='*';
{4}a[x+2,y-1]:='*';
{5}a[x+2,y+1]:='*';
{6}a[x+1,y+2]:='*';
{7}a[x-1,y+2]:='*';
{8}a[x-2,y+1]:='*';
end;
if (x=1) and (y>=3) and (y<=6) then begin
{5}a[x+2,y+1]:='*';
{6}a[x+1,y+2]:='*';
{7}a[x-1,y+2]:='*';
{8}a[x-2,y+1]:='*';
end;
if (x=8) and (y>=3) and (y<=6) then begin
{1}a[x-2,y+1]:='*';
{2}a[x-1,y-2]:='*';
{3}a[x+1,y-2]:='*';
{4}a[x+2,y-1]:='*';
end;
if (x=7) and (y>=3) and (y<=6) then begin
{1}a[x-2,y+1]:='*';
{2}a[x-1,y-2]:='*';
{3}a[x+1,y-2]:='*';
{4}a[x+2,y-1]:='*';
{5}a[x+2,y+1]:='*';
{8}a[x-2,y+1]:='*';
end;
if (x=1) and (y=8) then begin
{3}a[x+1,y-2]:='*';
{4}a[x+2,y-1]:='*';
end;
if (x=8) and (y=8) then begin 
{1}a[x-2,y+1]:='*';
{2}a[x-1,y-2]:='*';
end;
if (x=8) and (y=7) then begin 
{1}a[x-2,y+1]:='*';
{2}a[x-1,y-2]:='*';
{3}a[x+1,y-2]:='*';
end;
if (x=8) and (y=6) then begin 
{1}a[x-2,y+1]:='*';
{2}a[x-1,y-2]:='*';
{3}a[x+1,y-2]:='*';
{4}a[x+2,y-1]:='*';
end;
if (x=1) and (y=1) then begin 
{5}a[x+2,y+1]:='*';
{6}a[x+1,y+2]:='*';
end;
if (x=1) and (y=2) then begin 
{5}a[x+2,y+1]:='*';
{6}a[x+1,y+2]:='*';
end;
if (x=1) and (y=3) then begin 
{5}a[x+2,y+1]:='*';
{6}a[x+1,y+2]:='*';
{4}a[x+2,y-1]:='*';
end;
if (x=1) and (y=4) then begin 
{1}a[x-2,y+1]:='*';
{2}a[x-1,y-2]:='*';
{3}a[x+1,y-2]:='*';
{4}a[x+2,y-1]:='*';
end;
for x:=1 to n do begin
for y:=1 to 8 do
write (a[x,y],' ');
writeln;
end;

readkey
end.

uses crt;
var
s,k,w,w1,rez:string;
n,i:integer;
f:text;
begin
assign (f,'c:\1.in');
n:=0;
i:=0;
rez:='';
writeln ('Enter string');
readln (s);
n:=pos(' ',s);
n:=n-1;
k:=copy(s,1,n);
reset (f);
while not eof(f) do begin
readln (f,w);
readln (f,w1);
if w=k then begin
inc(i);
rez:=w1;
end;
end;
close (f);
if i<>0 then writeln(rez) else begin
w:=copy(k,n-3,n);
if w='онок' then begin
delete(k,n-3,n);
k:=k+'ата';
writeln ('New word=',k);
end
else if (w='енок') or (w='ёнок') then begin
delete(k,n-3,n);
k:=k+'ята';
writeln ('New word=',k);
end;
end;
readln;
end.