перевести код в жадный алгоритм

[alnik]

Нужно перевести код в жадный алгоритм

Условие задачи: На заводе имеется два типа отходов А и В. Первый из них радиоактивен. Отходы пакуются в ящики, которые складируются друг на друга (штабелем). При этом известно, что если в штабеле находится подряд 3 или более ящиков с отходами А, то возникает взрывоопасная ситуация. Определить кол-во таких ситуаций, если имеется N1 ящиков с отходами А и N2 ящиков с отходами В и все эти ящики сложены в один штабель.

Код:
program vzr;
uses crt;
var x:integer;
a:array[0..100]of integer;
j,i,n1,n2,n,k,z:integer;
begin
write('Кол-во ящиков с отходами типа А: ');
read(n1);
write('Кол-во ящиков с отходами типа B: ');
read(n2);
write('Кол-во ящиков подряд для взрыва: ');
read(k);
n:=n1+n2;
a[0]:=1;
for i:=1 to n do
begin
x:=0;
for z:=0 to k-1 do
x:=x+a[z];
a[k]:=a[k]+a[k]+a[k-1];
for z:=k-1 downto 1 do
a[z]:=a[z-1];
a[0]:=x;
end;
writeln('Взрывоопасных ситуаций: ',a[k]);
end.