Ломаная

program b1;
uses crt;
const k5='ISX_DAN.PAS'; k6='REZ_DAN.PAS';
label v1,v2;
Var INPUT1,OUTPUT1: text;
r,d,X,Y :array[1..10] of integer;
P :array[1..10,1..16] of INTEGER;
n,m,i,j,k,l,a,b,x0,y0,k1,k2,k3,k4 :integer;
c :real;
begin clrscr; textcolor(11);
assign(INPUT1,k5); assign(OUTPUT1,k6);
reset(INPUT1); rewrite(OUTPUT1);
readln(INPUT1,n,m);
for i:=1 to m do read(INPUT1,r[i]);
close(INPUT1);k:=1; for i:=1 to 10 do d[i]:=i*i;
for i:=1 to m do begin l:=1;
for j:=1 to 10 do if r[i]>d[j] then if l=1 then
begin c:=sqrt(r[i]-d[j]);
if frac(c)=0 then begin x[k]:=round(c);
y[k]:=j; l:=2; k:=k+1; end; end; end;
for k:=1 to m do begin a:=x[k]; b:=y[k];
p[k,1]:=a;p[k,2]:=b;p[k,3]:=b;p[k,4]:=a;
p[k,5]:=-a;p[k,6]:=b;p[k,7]:=a;p[k,8]:=-b;
p[k,9]:=-b;p[k,10]:=a;p[k,11]:=b;p[k,12]:=-a;
p[k,13]:=-a;p[k,14]:=-b;p[k,15]:=-b;p[k,16]:=-a; end;
for i:=1 to m do begin
for j:=1 to 16 do begin write(p[i,j]:3);end; writeln; end;
for k1:=1 to 16 do for k2:=1 to 16 do
for k3:=1 to 16 do for k4:=1 to 16 do
begin x0:=p[1,k1]+p[2,k2]+p[3,k3]+p[4,k4];
y0:=p[1,k1+1]+p[2,k2+1]+p[3,k3+1]+p[4,k4+1];
if (x0=0)and(y0=0) then for i:=0 to n do
for j:=0 to n do begin x[1]:=i; y[1]:=0;
x[2]:=x[1]+p[1,k1];y[2]:=y[1]+p[1,k1+1];
x[3]:=x[2]+p[2,k2];y[3]:=y[2]+p[2,k2+1];
x[4]:=x[3]+p[3,k3];y[4]:=y[3]+p[3,k3+1]; l:=1;
for i:=1 to m do if (x[i]>n)or(x[i]<0) or(y[i]>n)or(y[i]<0) then l:=2;
if l=1 then goto v1;end;end; writeln('HET PESHEHIJA !');
WRITE(OUTPUT1,'HET PESHEHIJA !');GOTO V2;
v1: Writeln('Bepshini :'); for i:=1 to m do writeln(x[i]:3,y[i]:3); for i:=1 to m do writeln(OUTPUT1,x[i]:3,y[i]:3);
v2: close(OUTPUT1); readln end.