Виталий Ромащенко
Помогите объяснить каждую строчку.
uses crt;
const
n=14;
a:array[1..n] of integer=(17, 17, 17, 7, 7, 7, 7, 8, 32, 56, 56, 56, 12, 12);
var
i,j,k,t,g:integer;
begin
for i:=1 to n do begin
write(a:5);
end;
writeln;
write('k= '); read(k);
for i:=1 to n-1 do
if a=a[i+1] then inc(g) else
if (g+1)>(n-k) then break else
begin
for j:=0 to g do
begin
t:=i+j;
i:=k;
k:=t-j;
end;
break;
end;
writeln;
for i:=1 to n do write(k:5);
end.