лабы / лаб5 / допы / var1

program var1;
var
i: byte = 1;
result,j,temp_pos: byte;
s: ansistring;

function StrtoInt(Str: string): integer;
var
I,C: integer;
begin
val(Str,I,C);
if C<>0 then I:=0;
StrToInt:=I;
end;

begin
while (result <> 34) do
begin
s := '';
result := 0;

for j:=1 to 10 do s := concat(s,'1');
for j:=1 to i do s := concat(s,'2');

while (pos('21',s) <> 0) do
begin
temp_pos := pos('21',s);
delete(s,temp_pos,2);
insert('5',s,temp_pos);
end;

for j:=1 to length(s) do result := result + StrToInt(s[j]);

inc(i);
end;

WriteLn(i);
end.