8 олимпиадных задач 1-го семестра, Фадеева ЕП (ПОИТ) / DIVISION08

program division08;
var
n,i,m,j,t:integer;
a,b:string;
q,del,buf:integer;
c,d,k:array[1..102] of integer;
begin
readln(a);
n:=length(a);
readln(b);
m:=length(b);
begin
i:=1;del:=0;
repeat
val(a[i],c[i],q);
i:=succ(i);
until i>n;
i:=1;
repeat
val(b[i],d[i],q);
i:=succ(i);
until i>m;
t:=1;
repeat
repeat
j:=length(b)+t-1;
del:=0;
m:=length(b);
for j:=length(b)+t-1 downto 1 do
begin
buf:=c[j]-d[m]+del;
if buf<0
then begin c[j]:=buf+10; del:=-1; end
else begin c[j]:=buf; del:=0; end;
m:=m-1;
end;
k[t]:=k[t]+1;
until buf<0;
del:=0;
m:=length(b);
for j:=length(b)+t-1 downto 1 do
begin
buf:=c[j]+d[m]+del;
if buf>9
then begin c[j]:=buf-10; del:=1; end
else begin c[j]:=buf; del:=0;end;
m:=m-1;
end;
k[t]:=k[t]-1;
t:=succ(t);
until t>length(a)-length(b)+1;
end;
if k[1]=0
then for i:=2 to length(a)-length(b)+1 do write(k[i])
else for i:=1 to length(a)-length(b)+1 do write(k[i]);
readln;
end.