uses crt,graph;
const
c=50;
var
z:string;
p,m,n:integer;
f:text;
begin
writeln;
writeln('Pirms shiis programmas palaishanas, ir jaabuut genereetam failam varianti.txt!');
writeln('Sho failu generee programma shahs.pas!');
writeln('-------------------------------------');
writeln('Kuru variantu, ko?');
readln(n);
repeat
p:=0;
m:=0;
initgraph(p,m,'');
for p:=1 to 8 do
for m:=1 to 8 do
rectangle(c*p+2,c*m+2,c*(p+1)-2,c*(m+1)-2);
assign(f,'varianti.txt');
reset(f);
readln(f,z);
while z[1]<>char(n div 10+48) do readln(f,z);
while z[2]<>char(n mod 10+48) do readln(f,z);
close(f);
for p:=1 to 8 do
circle(c*p+(c div 2),c*(ord(z[3+p])-48)+c div 2,10);
writeln('Gatavs!');
delay(1000);
closegraph;
inc(n);
until (keypressed)or(n=93);
end.