В магазине имеется мастика в ящиках по А1 кг, А2 кг и А3 кг. Некоторой организации требуется получить М кг мастики. Определить, возможно ли это сделать, не вскрывая ящики — Pascal(Паскаль)

var
a1,a2,a3,i,j,k,m:integer;
begin
readln(a1,a2,a3);
readln(m)
for i:=0 to m div a1 do
for j:=0 to m div a2 do
for k:=0 to m div a3 do
if a1*i+a2*j+a3*k=m then writeln(i,' yashikov po ',a1,' ',j,' yashikov po ',a2,' ',k,' yashikov po ',a3);
end.