Код
program biletiki;
var
head,tail,newtail,newhead:string;
f:text;
flname:string[20];
i:integer;
procedure ticket(var f:text;var head,tail:string);
var
s,s1,code,chislo,m,n:integer;
begin
if length(head)=4 then
begin
s:=0;
for m:=1 to 3 do
val(head,chislo,code);
s:=s+copy(head,m,1);
end;
s1:=0;
for n:=4 to 6 do
val(head,chislo,code);
s1:=s1+copy(head,n,1);
end;
chislo:=chislo+1;
if s:=s1 then
writeln(f,head);
procedure summa(var f:text);
var
s:integer;
begin
s:=0;
s:=s+head;
end;
begin
writeln('Vvedite nazvaniye fila.');
readln(flname);
assign(f,flname);
rewrite(f);
for i:=1 to length(tail) do
newhead:= head + copy(tail,i,1);
delete(tail,1,i);
newtail:=tail;
ticket(newtail,newhead);
end.